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2 
0000 i 
0000 FACILITY: 
0000 2 
4444 29 VAX/VMS DEUNA/DELUA QUEUE I/0 DRIVER 
+464 5 : ABSTRACT: 
0000 This module contains the DEUNA/DELUA driver FDT routines, 
i448 $e interrupt dispatcher, interrupt service and fork routines. 
0000 3 ¢ AUTHOR: 
0000 3 
0000 3 Rod Gamache 21-0c t-1981 
0000 3 
0000 4 
+48 43 : : MODIFICATION HISTORY: 
0000 4 v03-034 RNGOO34 Rod Gamache 30-Aug-1984 
0000 4 Do not mark template UCB OFFLINE, simply because the 
44 oi device reports a hardware error, that may be cleared up. 
0000 4 v03-033 RNGOO33 Rod Gamache 2-Aug-1984 
0000 4 Fix check for ready state on DELUA. Also increase done 
it 4 Ae nH interrupt expected time to 16 seconds. 
0000 20 v03-032 RNGOOS2 Rod Gamache 25-Jul-1984 
0000 5 Fix powerfail recovery code to clear the POWERFAIL indicator 
44 5 bit and set the ONLINE bit. 
0900 34 v03-031 LMP0275 Mark Pilant, 12-Jul-1984 12:43 
000 5 Initialize the ati info in the ORB to be a null descriptor 
0000 5 List rather than an empty queue. This avoids the overhead 
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of ey, and unlocking the ACL mutex, only to find out 
that the ACL was empty. 


RNGOO30 Rod Gamache 27-Jun-1984 
Change the way the set default modifier Sonoves on the 
Physical address SSR: 


LMPO221 Pilan 27-Mar-1984 11:55 
Change UCBSL _ownuic™ to ones. NOUNER and UCB$W_VPROT to 
ORBSW_PROT. 

RNGOO28 Gam 29-F eb-1984 


Rod N 
Fix return from EXESPROBE msc to setup R1 as a longword. 
ah ALLOC_CDB to initialize the address of UCB unit 0. 
Fix error path to return transmit CXBs on FFI interface, 
instead of deallocating them. 


TMKO0007 Todd M 06-F eb-1984 

Fix a toe in ALLOC_ CDB, whea scanning the List of UCBs within 
ALLoe CDB to setup UCBSL_NI_HWAPTR and UCBSL_CDB, make sure that 
the scan is complete and that these locations are setup in 

every UCB, and not just the UCBs from UCBO to the current UCB 
(the UCB the routine was called with) inclusive. 


RNGOO26 Rod N. Gamache 03-Feb-1984 

Add a delay to the startup sequence to give the DEUNA time 

to set the hardware state to RUN. This will allow the driver 
the aporeuntty to return this state to UETP. Also the driver 
will have to clear BIT13 in PCSR1 for UETP so that VAX 11/725s 
will pass UETP. Also fix problem where correct error return 
was not getting returned when quota was exceeded. 


TMK0006 Todd M. Katz 01-Feb-1984 

When the gnhng a times out because of UNIBUS or device 
controller power failure, then call back all protocols which 
are using the FFI interface and have defined an FFISL_ERROR 
asynchronous error routine. What this involves is: 


1. Not cleor tos the power failure bit, CDB_STS_V_POWER, within 
CDB_B_STS in the routine SHUTDOWN_UNA until~all 1/0 has been 
Str up on all active units. 


Noticing within the routine SHUTDOWN by means of the 
COB_STS_V_POWER status bit that a — failure has 
open tN gt In such a cireunstence the port driver wants to 
call = os nchronous error routine of the protocol before 
ng Mg i ng else ange taed the protocol has initialized 
ntertace, defined an asynchronous error routine, 
~ the UCB for the protocol is both on-line and initialized. 


TMKOO0S Todd M. Katz 19-Jan-1984 
Make the following hath. to the driver: 


™~m 
° 


1. 1 have created a NI device dependent UCB extension within 
SUCBDEF. This extension contelns definitions for 
UCBSL_NI_HWAPTR and UCBSL_NI_MLTPTR, two new locations 
to be contained within the Nices of all NI datalink drivers. 


| 


<= 
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68 115 ; I have therefore modified the XEDRIVER's UCB definition 
118 3 rT) phag the DEUNA/DELUA specific UCB fields begin immediately 
; ollowing the evice dependen extension. 

3} 1 foll the NI device d dent UCB extensi 

$00 113 ; UCBSL_NI_HWAPTR is initialized when the CDB is first 

000 120; allocated to contain the address of CDB_G_HWA, the COB 
4 121 ¢ Location which contains the NI device's unique hardware 
000 1 ¢ 3 address. UCBSL_NI_MLTPTR is initialized within the unit 
0000 123; unitialization routine to contain the address of the table 
44 124 ; of multicast addresses defined for this protocol type. 
000 125 ; Both of these values must be accessible to the NI-SCS port 
4 1 § $ driver, The NI-SCS port driver has access to the UCBs of the 

00 ler 3 NI devices por sitet ine in SCS clusters, but it doesn't have 
0000 128; initimate knowledge of how the UCBs and €DBs are layed out 
0000 \¢ 3 for each NI device. This UCB extension provides a means for 
0000 130; the NI-SCS port driver to locate these values without knowing 
44 13) 3 the exact layout of each of the NI device's UCB and CDB. 
0000 138 F 2. Whenever a protocol is to be started up on a DEUNA/DELUA, 
0000 134; allow the initiator of the SETMODE+STARTUP to sgec tty 0 
0000 135; receive buffers instead of the former minimum of 1. The 
0000 136; effect on this protocol is that it must have a READ 
0000 137; evesteneey at all times in order to guarentee that it will 
0000 138; receive all datagrams specifying its protocol. If a datagram 
0000 139; was received for this protocol, and there wasn't a read 
0000 140 ; outstanding, then because 0 receive buffers can be queued 
0000 141; (or saved) for this protocol, the receive buffer would be 
4444 126 3 deallocated to pool, and the message it contained lost. 
0000 144; This change is extremely useful for those users who are — 
0000 145 ; making use of the FFI interface provided by this port driver. 
0000 146; Between the time the user issues a SETMODE+STARTUP, and the 
0000 147 ; time the user initializes the FFI interface by callin 
0000 148; FFI_LINIT, it would be possible for the port driver to have 
0000 149; received messages with this user's protocol, and to have 
0000 150; queued them up to the agoreer tate UCB. Now, if the user 
0000 151; never makes use of the Q10 or ALTSTART interfaces, but just 
0000 13¢ 3 uses the FFI interfaces for communication, these messages, 
0000 153; which are probably stale by this time, wilt never be 
0000 154 ; received, and the buffers that contain them will effectively 
0000 155; be lost forever. With this change, a user who wishes to do 
0000 156 ; all his/her communication via the FFI interface can guarentee 
0000 157 ; that a situation such as this can never arise, and buffers 
it 138 3 such as these can never be ‘‘lost’’. 
0000 160; 4. Add the genebil ts of requesting that the physical address 
0000 161; of the DEUNA/DELUA device be set to the default DECnet 
0000 166 : address, when the device is first initialized. This new 
000 163 ; capability is requested by means of the NMASC_LNMCN_ SDF 
000 164 ; mode value specified within the modifier field of the 
4 19? 3 NMASC_PCLI_PHA parameter. 

000 189 : v03-023 TMKO004 Todd M. Katz 17-Dec-1983 

4 198 ; Fix a bug introduced by TMKO003. When the controller is a DELUA 

0 169 ; 1 was re-setting UCBSB_TYPE instead of UCBSB_DEVTYPE to 
4 109 3 DT$_DELUA. 
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I have also added code to UNIT_INIT which during t 
initizalization of UCBO determines the state of he “DEUNA/DELUA. 
If the device is in a state other A Ay Synge! LOAD, READY 
RUNNING, I now clear the on-line bit within the UCB, and é okie 
the determination of the device's identification because the 
device ID field within PSCRI is probably invalid. 


v03-022 TMKO003 Todd M. Katz 10-Nov-1983 
Add support for the DELUA. Suoport consists of the following 
modifications to the DEUNA driver: 


1. The addition of an Extensive Selftest Port Command. This 
soanene maybe invoked as a diagnositic function 
(XE_C_DG_ESTEST) on the DELUA only. 


2. The addition of a HALT Port Command. This command maybe 
invoked as a diagnositic function (XE$C_DG_HALT) on the 
DELUA only. Also, add a definition for the the new port 
state, PORT HALTED, that only the DELUA can enter. 


3. The addition of an internal loopback mode for the DELUA 
only. Internal loopback maybe requested by seec ty tae the 
controller mode (Line parameter NMASC_PCL 

NMASC. LINEN, LOO and by specitying the. new Tine arameter 


0000 NMASC_ “PCLT ILP with a value of $C_STATE_ON. Requesting 
0000 internal Loopback results in the setting of the new port 

464 control block mode definition bit INTL. 

0000 The addition of . new saterryee bit, FATL (Fatal Error 

0000 Interrupt), as bit <09> in PCSRO. When a controller interrupt 
0000 occurs, and the port driver notices that this bit has been 


set then the consents of PCSR1 are ignored during processing 


0000 

0000 of the error by FORK_PROC. This is accomplished a, zeroing 

0000 the — order word of R3 before calling SCHED FORK to 
schedule a fork process to handle the error. The fork 

0000 process assumes, when it starts executing, that the high 

sit order word of R& contains the contents of PCSR1. 

0000 5. Add to PCSR1 a three bit field DEVID (Device Identification) 

0000 from bit <04> to bit <06>, and definitions for several 

0000 possible bit settings. This device Le a falls ge 7 field 

0000 is used to identify a DELUA from a DEUNA. 

0000 initialization time for UCBO, the penal ese ucB this field 

009 -. queried. and if the controller is a DELUA, the device 

000 3 ae ield of the a is changed tren” its Stet lt o 

0000 DT$_DEUNA to tts -DELUA. This field is then subsequently 


referenced whenever the fers driver must Stes ingyish beeveen 
the two types of cqntrot ors The addition of t Ne new field 
requires removal of the bit definitions for POWER (bit <04> 
Software Defined Power eit and for TIMOUT (bit <05> 
Software Defined Timeout) as well as all code in the driver 
that sets and references these bits. The latter bit is 
redundant (and thus not needed) and the function of the 
former is taken up be a new CDB status bit Lacecetbed below). 
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6. The transmit ~~! descriptor entries for the DELUA define a 
new error bit, UFLO (bit <13> = Transmit Underflow). When 
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this bit is detected as being set in a completed transmit, 
the transmit is concluded with an error status of 
SSS_CNTRLERR = Fatal Controller Error. 


7. The recieve ag descriptor entries for the DELUA define a 
new error bit, OVRN (bit <12> = Recieve Overrun). This 
error status is not treated any differently from ony of the 
other recieve error statuses - the recieve buffer(s) are 
returned to the free list (or to pool if the free List is 
filled), and the scan for recieved messages continues. 


The DELUA always operates in half-duplex mode (except for 
loopback); therefore, the port driver has been modified to 
not allow the echo-back Line parameter (NMASC_PCLI_EKC) to 
be specified when the controller is a DELUA, and to always 
made sure that the port control block mode hal f-duplex 
definition bit (HDX) is clear. 


Other changes made to support the DELUA and to clean up the 
existing driver are as follows: 


1. Change the name of bit <08> of PCSRO from FATI to USCI 
(Unsolicitated State Change Interrupt). 


SOOQoOooooooooooooooo 
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Move the software defined illegal tt bit, ILLINT, 
from bit <06> of PCSR1 to bit <04> of PCSRO. 


Eliminate the port commands TMRO <Sentty Timer On), TMRF 
(Sanity Timer Off), and RSTT (Reset Sanity Timer). 


Increase the size of the STATE field of PCSR1 from 3 to 4 
bits. STATE now occupies from bit <00> to bit <03> of PCSR1. 
This change requires the removal of the bit definition for 
RMTC (Remote Console Reserved) bit <03> from PCSR1. 


Fix power failure recovery which has not been working for 
some time. Power failure agony | has not been vers 
because the CDB address was not being loaded into R4 before 
SCHED _FORK was being invoked from within TIMOUT to setup 

a fork process to handle the error. Since the fork process 
assumes that on entry R4 contains the CDB address. and R4 

did not contain the CDB address in the case of power failures 
this explains the problems which have been seen, In addition, 
a CDB status bit, CDB_STS_V_POWER, has been defined. This bit 
is now set (for reference purposes only) whenever a power 
failure occurrs. 


6. Add comments to explicitely distinguish DEUNA parameters 
one operations from DELUA parameters and operations, and 
visa versa. 


7. Change the DEUNA device type from DT$_UNA1? to DTS$_DEUNA. 
8. When the CDB address is retrieved for the first time during a 


transmit, terminate the operation with the appropriate error 
if there is no CDB. 


SSSSSSsssssssssssss 
Soooocooocoo 


Ww 
es 


Sss 
= 
e 


wv 
° 


ss 
Ooooooo 
SIND DDD DS DDD OD TUTTI BB BS BBB EE EAA 


NOUS UR OS OO NAME WN © ODNAU SW $0 OONOAUE WN O OONAUES WO” 


SeSe Se Se Se Ge Se Ge Ge Se Se Se Ge Se Ge Ge Se Ge Se Ge Ge Ge Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Ge Sse Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Se Se Se Se 


COOoOoooooooooooooooooo 
~~ 


oO 
SOOOoooooooooooooooooooooSo o 
SOOoooooooooQoooooooooo S 
PRIPIPIPIPIPINIPDPYPINYDINYINIPYNIPIAIUNINININININININININPINGNIPININPINPIPINIPONINPYPINIPIPUPIPOPININUNIPUNoPofnonfnyd 


SQOQoQoooooooooooooeonG 


GoCDCO CO COCo I~ 
WMFWwr—O O00 


SSess 


<> 


L 14 
XEDRIVER = VAX/VMS DEUNA/DELUA Driver 16-SEP-1984 00:32:54 VYAX/VMS Macro V04-00 Pa 6 
VOe~000 B78 p=19 4 80:19:23 LORIVER. SREIKEDRIVER MAR: 1 " (1). 


9. When COPY_RCV determines that the promiscious user does not 
have a waiting IRP and that the recieve can not be buffered 
because of insufficient quota it returns the buffer to the 

ool. It makes the assumption when it goes to return such a 
uffer, that the buffer can be chained, even though such 

chained buffers are not supported. Therefore, this routine 

goes through some unnecessary gymnastics to deallocate such 
ebb and this change cleans up this buffer deallocation 
procedure. 


10. There currently is a bug in $DASSGNs on shared UCBs 
(ie = the protocol is being shared) when the UCB is on-line 
and the reference count has not gone to zero. In this case 
a selective cancel 1/0 is done by the routine CANCEL. The 
problem is that for this selective cancel to be done, R4 
must contain the PCB address. Unfortunately it is possible 
for R4 to be over-written. Therefore, the fix is to make sure 
that R4 contains the PCB address, when it is expected to 
contain the PCB address. 


v03-021 TMKO002 Todd M. Katz 10-Nov-1983 
Performance enahcements to the transmit and recieve main code 
paths are as follows: 


1. I eliminated the check for runt packets that was being 
made within XMT_START if pedetag is not enabled. The 
assumption will be made that since padding is enabled by 


SOoOoOoCoooooooooooooooooooooooo 
SOoOoOSoSCooooooooooooooooooooooo 
SOoOoOSCoCoOoOoCoooooooooooooooooooo 
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default, if the user turns it off then he/she should know 


44 enough to not attempt to transmit runt packets. In addition 
000 address of the CDB in RO even though it already he CDB 
808 address in R4, and 1 removed the unnecessary instructions. 
000 2. I modified ADDRCVLIST as follows. When this routine is called 
0000 R2 contains the address of a CXB that is to be added to the 
0000 recieve buffer List if there is sufficient quota to do so. 
0000 I have made the assumption, that the CXBSB_TYPE and 
0000 CXBSW_SIZE fields of the CXB have been appropriately 
initialized, and there is no need to do so again. This 


serves to eliminate four instructions in the case when there 
is sufficient quota to add the recieve buffer to the List, 
and one instruction from the path when the port driver must 
dip into the additional quota in order to add the recieve 
buffer to the List. 


3. START_RECIEVE, as part of its job of mapping recieve buffers | 
and handing them to the device, was computing the size of 
each recieve buffer and stuffing it in to the ring | 


| 

| 

| 

| 

| 

| 

| 

there was one place in XMT_START that was sett ine > Ee | 
| 


descriptor that it was currently initiating. This is 
unnecessary because the size 9 all recieve buffers is fixed 
at the time the COB is first initiated and the controller is 
started. Therefore, what I have done is to initialize the 
buffer length fields of all ring descriptor entries as part 
of STARTUP, and remove the individual recieve descriptor 
buffer Length initializations within START_RECIEVE. 


4. I have made a modification to LOAD_PORT which should result 
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in increased performance. Currently when this routine is 
called the assumption is made that the port will either be 
busy or there wi } be fiothing to load it with. Consequently, 
the state bit indicating the status of the port, 
CDOB_STS_V_FUNC, is not cleared (indicating that the port is 
active) unless the port was found to be free and there is a 
command to load it with. I think a more appropriate 
assumption is that when this routine is called, regardless 
of the state of the port, there will be command to load it 
with if the port is free. Therefore, what I have done is to 
always clear CDB_STS_V_FUNC while checking it by means of a | 
BBCC. If the port is busy, then the clearing of this bit has 
no effect because it is already 0. If the port is free and 
there is a command to load it with, then the BICW currently 
being done in this case becomes unnecessary, and can be 

removed. Finally, if the port is free but there is no 
command to load, which should be the least frequent case, 
then CDB_STS V_FUNC must be set before this routine exits 
anc I have added a BISW to do this. 


A second improvement is to not obtain the PCBB address until 
after it is determined that the next function is not a CX 
function but an IRP function. This eliminates an unnecessary 
instructions from the main transmit and recieve code paths. 


There are two consecutive MOVL within XMT_START that can 
be replaced with a single MOVQ. 


One of the first things XMT_ALT_START does is to retrieve 
the CDB address even though it already has the address of the 
CDB within R4. Eliminate the unnecessary MOVL. 


The routine FINISH_RCV_FFI currently saves the CDB address 

in R1 before loading the FFI block address into R4 where the 
COB address is normally kept By Cohaying the retrieving of 
the FFI block address until just before the user is called 
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back with the CXB, the MOVL that saves the CDB address in R1 
can be eliminated. 


9. At the present time, the address of the CDB is retrieved via 
a chain of pointers within the following data structures: 


UCB -> CRB -> CDB | 


By defining a location within the device-dependant portion 
of the UCB for the CDB address, and by setting up this 
Location initially when the CDB is first allocated, a MOVL | 
instruction can be eliminated for each time the CDB address 
must be retrieved. 
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Finally, the port driver assumes data chaining by default, 

and this mandates a complicated song and dance to construct 
recieve packets despite the fact that DECNET specifies the 
maximum recieve buffer possible and data chaining can never 
take place! I have changed this my turning off data chaining 
as the default, not al lowing the controller to be enabled for 
data chaining unless the initializer of the controller has 
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explicitely specified data chaining one a buffer size less 
than the maximum packet size, and setting up 2 assemble 
acket routines = one that supports data coerntne 

SSPKT_DCH, and one that does not ASSPKT_NODCH. When the 
ontroller is initialized ag pert of a STARTUP, a decision 

s made whether or not it will be enabled for data chaining 
and which of the two packet pesenbsy routines will be used 
when a packet is to be assembled. This change results in a 
significant performance improvement whenever the controller 
is not enabled for data ehotning. which is most of the time. 
This is because ASSPKT_NODCH, the routine which gets invoked 
and assumes no data chaining, does not have to do all the 
excess work that support for data chaining requires. 


v03-020 TMKO0001 Todd M. Katz 01-Nov-1983 
Add a performance enhancement to recieves and transmits at 
the cost of some additional space within the CDB. This 
enhancement consists of picking up the address of a ring entry 
(transmit or recieve) from the appropriate vector of such ring 
entry addresses instead of computing it. The additional space 
within the CDB consists of two vector tables - one of transmit 
ring entry addresses and the other of recieve ring entry 
addresses. These vector tables are initialized only once - when 
the COB itself is initialized within START. 


V03-019 RNGOO19 Rod N. Gamache 15-Sep-1983 
Fix bug in shutdown code to allow for the first UCB 
address not to be set in the CDB (fixes bug check). 
Fix service operations that were broken by FFI interface. 


v03-018 RNGOO18 Rod N. Gamache 24-Aug-1983 
Fix some bugs in the Fast Interface code. 
Set the str ng indicator when returning NMASC_PCLI_HWA. 
Initialize CDB Fork Block when it is allocated. 
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v03-017 RNGOO17 Rod N. Gamache 08-Jul-1983 
Add new Fast Interface. 
v03-016 RNGOO16 Rod N. Gamache 06-Jul-1983 
Stop using the MBX code to create/delete UCBs. 
v03-015 RNGOO1S Rod N, Gamache 23-Jun-1983 
: Remove internal definition of IRPS$Q_STATION. 
444 V03-014 RNGOO14 Rod N. Gamache 02-May-1983 
0 445 Fix the shared protocol quota to be initialized when unit 
4 ? § is inited. Add a point-to-point startup mechanism. 
00 448 v03-013 RNGOO13 Rod N. Gamache 02-May-1983 
4 : 3 Fix the SHUT code in STARTIO to setup R4. 
00 451 V03-012 RNGOO12 Rod N. Gamache 30-Apr-1983 
4 ¢ Add code to support Point-to-Point mode. A 
Bp 2 ? Cleanup shared user code and add shared user's quota. 
it 455 v03-011 RNGOO11 Rod N. Gamache _. 15-Apr-1983 
0 456 Make the NMA return codes self-describing (i.e. lonword 
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or strings). 
Misc. cleanup. 


v03-010 RNGOO10 Rod N. Gamache 16-Mar-1983 
Validate parameter settings for all users of a SHARED 
UCB. Copy the multicast address List from the SHARED 
oh wt ie i UCB to the primary UCB for the SHARED 

rotocol. 

Brecess MOP requests for read counters. 
Make Protocol Access a modifiable par rhe aE 
Make CIRCUIT startup/shutdown enable/disable the protocol 
type for 1/0 operations. 


v03-009 RNGOO009 Rod N. Gamache 7-Mar-1983 

Wait 20 usec on successful startup, before reading the 

ort CSRs to give UNA time to set correct state. 

eturn different error codes for TIMEOUTs, and Transceiver 
power cable disconnected. Also, return different error 

code on XMIT operations when the device is re-starting. 

Add code to accept NMASC_PCLI_DES parameter, don't return 
pereneter unless user is running in LIMITED mode. 

n SHUTDOWN of the promiscuous user, reset the hardware into 
non=-promiscuous mode. 

Cleanup the SHARED-LIMITED user code. 

Allocate sufficient receive buffers at FDT time to guarantee 
buffers will be available at run-time. 


v03-008 RNGOO08 Rod N. Gamache _ 14-Feb-1983 
Add protocol sharing to driver. Fix zeroing of driver 
ceunters. Fix bug with attempting to fill receive buffer 
queue when TQE timer expired. 


V03-007 RNGOOO7 Rod N. Gamache 11-Feb-1983 
Change device into promiscuous mode, when promiscuous user 
starts up (even after device has already been initialized). 
Change device to enable all multicasts, if the user requests 
S. 


V03-006 RNGO004 Rod N. Gamache 14-Jan-1983 
Cleanup use of quotas. Read port status on error. | 
Fix counter return for driver counters. Fix even size 
receive buffer problem. Set the DELMBX bit in the 
UCB of units to be ‘‘deleted”’. 
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03; 
8 a5 ; EXTERNAL SYMBOLS 
6 $ SABDDEF 3; Define ABDs 
8 SACBDEF 3; Define AST control block 
$ 8 SCANDEF ; Define CANCEL reason codes 
09 SCCBDEF ; Define CCB offsets 
000 10 SCRBDEF : Define CRB 
a cts URES Stas atonsen on 
; Define device classes and types 
0000 218 SDDBDEF : Define 
8 ale SDEVDEF ; Define device characteristics 
15 SDPTDEF 3; Define DPT 
00 218 SDYNDEF ; Define dynamic data structures 
44 51 SFFIDEF ; Fast Interface definitions 
000 518 $FKBDEF : Fork block definitions 
860 519 SIDBDEF ; Define 
000 520 SIODEF ; Define 1/0 function codes 
0000 521 SIPLDEF 3: Define IPLs 
0000 5 ¢ SIRPDEF : Define IRP 
0000 5 SJIBDEF : Define JIB 
0000 524 SMSGDEF : Define SYSTEM MESSAGES 
0000 525 SNMADEF 3; Define Network Management Codes 
0000 526 SORBDEF ; OBJECT'S RIGHTS BLOCK OFFSETS 
0000 527 SPCBDEF : Define PC 
0000 528 PRDEF ; Processor register definitions 
0000 293 SPRVDEF : Privilege bit definitons 
0000 530 SSDEF : Define System Status Codes 
0000 531 STQEDEF : Define TQE offsets 
0000 238 SUBADEF 3; Define UBA symbois 
0000 53 SUCBDEF : Define UCB ‘ 
0000 534 ADEF 3; Define Virtual Address bits 
0000 535 SVECDEF ; Define CRB VECTOR | ’ 
444 238 SXMDEF 3; Define DECnet datalink characteristics 
0000 538 ; Local symbol definitions 
0000 539; 
0000 540 
0000 541; : 
344 245 3; Define the following symbol to enable use of receive buffered data paths. 
000 543; This feature cannot normally be used on systems which use UNIBUS 
4 ete 3 disks, since the disk drivers REQUIRE the buffered data paths. 
4 278 3 RCV_DATAP = 1 ; Enable use of recv buffered datapaths 
0000 2¢8 3 p 
B28 rH 3 Define the following symbol to enable use of point-to-point mode 
00000001 009 2) POINT = 1 ; Enable use of point-to-point mode 
4 2¢ 3 
sit 22 3; Argument List offsets for Q10 
4 25 p1 = 0 ; Parameter 1 
0 5 Ps = 4 3; Parameter 
4 58 P = 8 : Parameter 
0 59 P4 = 12 : Parameter 4 
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Local macros 

‘MACRO SETBIT VAL, FLAG 

“tf £0 cS. ~*yEF> 
S*#VAL FLAG, .+1 


LT <VAL-8> 
#<1aVAL>,FLAG 


#VAL,FLAG,.+1 | 


on 


Wees @ 
MO — MMO De > 


VAL ,FLAG,.+1 


00000010 $9 P5 = 16 ; Destination/Source address 
$6 ; 
4 o7 ; Constants 
0 65 $€0u = BROCSTI <*XFFFFFFFF> ©; Broadcast address 
00 ¢ $EQU BRDCST2 <*KXFFFF> : 
0 67 SEQU UDB_SID_C_LENGTH 60 : Size of SYSTEM ID UDBB 
0 68 $SEQU MAX_C_MCT 1 ; Maximum number of multicast addresses 
0 4 $EQU MAX_C_CTR 3 ; Maximum size of counters (words) 
00 Q SEQU MAX_C_XMT 4 ; Maximum number of entries in XMT ring 
88 71 SEQU MAX_C_RCV 8 ; Maximum number of entries in RCV ring 
0 es $EQU MAX_C_CHAIN 1 ; Maximum number of extra segments in 
8 o ; a receive buffer chain 
00 575 SEQU NI_CTR_PROTYP <*X0260> ; Ethernet read counters protocol 60-02 
00 ef8 $EQU NI-CTR_READ 9 ; Read counters request function 
oS aa SEQU NI_CTR_REPLY 11 ; Read counters reply function 
00 579 SEQU INIT_C_QUOTA 9*1500 ; Allow for 9 of the largest buffers 
00 580 SEQU INIT_C_AQUOTA 2 ; Allow for 2 additional buffers 
00 581 S$EQU DSCSA POINTER 4 ; Pointer to data in buffer descriptor 
00 286 $EQU MIN_PRT_SIZE 46 Size of user data in a runt packet 
00 5835 SEQU MAX_PKT_ SIZE 1500 Size of maximum Ethernet user data 
00 584 $EQU TQE-C_DELTA 2 2 second timer interval 
00 585 SEQU TQE-DELTA TQE C per ranr0006e7055% Delta interval (in 100 nsec) 
00 586 $EQU RESTART DELTA 3*10000*1000 ; START T interval - 3 Seconds 
00 587 $EQU XMT_C_TIM 8 XMITS must take less than 8 seconds 
00 588 $EQU XMT_TIM <<XMT_C_ TIM#2>/23 
00 589 SEQuU DNI_C_TIM 12 DNI settings must take less than 12sec 
00 590 SEQU DNI-TIM <<DNI_C _TIM+2>/2> | 
00 591 $EQuU XE_C_HEADER 14 ; Size of DEUNA/DELUA header 
00 238 $EQU XE_C_CNTSIZ 2 Size of packet count field 
00 593 SEQU XE_C CRC 4 Size of DEUNA/DELUA CRC 
00 594 ASSUME XE_C_CRC LE CXBSC ‘yan | 
00 595 SEQU XE_C dy <*xX0660> 3% PT-TO-PT Starting protocol type 
00 238 $EQU 1PC$- XE_F 8 : Fork IPL 
00 97 SEQU IPL$_XE ~bipt 21 ; Device TPL 
00 598 | 
00 599 
00 600 
00 601 
00 one 
0 8 
0 604 
0 605 
0 606 
0 607 
0 608 
0 609 
00 610 
00 611 
88 618 
61 
0 614 
0 615 
00 616 
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98 617 .ENDM SETBIT 
018 $ 
0 619 ¢ sseseesezeesseseszsess= 
0 620 ; 
0 621 .MACRO CLRBIT oo 
00 6 ¢ NTYPE _$ VAL 
$ 6 -IF EQ 2_$$_-*x0EF> 
000 624 IF NDF VAL 
0000 625 BBCC S*#VAL,FLAG,.+1 
000 6 § opt¥ 
000 6 IF LT <VAL-8> 
638 6 BICB #<1QVAL>,FLAG 
0 6 -1FF 
000 630 BBCC #VAL,FLAG,.+1 
0000 631 -ENDC 
0000 6 § -ENDC 
0000 6 IFF 
0000 634 BBCC VAL,FLAG,.+1 
0000 635 -ENDC 
0000 636 .ENDM CLRBIT 
0000 637 ; 
0000 638 ; seessezesseseesssesesses 
0000 639 ; 
0000 640 .MACRO INCC COUNTER, CONTEXT=L,?L ; Increment counter 
0000 641 INC* CONTEXT COUNTER ; Do Increment 
0000 64 BCC ; Br if no carry set 
0000 64 DEC* CONTEXT COUNTER ; Leave at maximum value 
0000 644 L: 
0000 645 .ENDM  INCC 
0000 966 : 
0000 667 ¢ sseseeeesessessesessees 
0000 648 ; 
0000 649 .MACRO CNTR CURCNT,COUNTER,CONTEXT=L,?L ; Accumlate counter 
0000 650 ADD * CONTEXT CURCNT,COUNTER ; Do addition 
0000 651 ; Br if no carry set 
0000 636 MNEGL #1,COUNTER ; Leave at maximum value 
0000 653 |: 
0000 654 .ENDM CNTR 
0000 655 ; 
0000 656 ; seeseeesssesesssseesese 
0000 657 ; 
0000 658 .MACRO PUSHQ ARG ; Push a quadword 
0000 659 MOVQ ARG,-(SP) ; Save argument on stack 
898 660 .ENDM PUSHQ 
0 661 ; 
000 662 ; seessseesssessessssess= 
44 665 ; 
00 664 .MACRO POPQ ARG ; Pop a quadword 
0000 665 MOVQ (SP)+,ARG ; Restore argument 
6000 666 .ENDM POPQ 
0000 667 ; 
0000 668 g sssssssssssssssssssssss 
0 $96 -MACRO PARAM TYPE,OFFSET,WIDTH,MIN,MAX, INVALID,BASE=UCB,STRING,=- 
i 671 SIZE, CHECK=YES 
6 £78 j Macro to generate the parameter tables 
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0 674 ; 

09 $f? ; Inputs: 

$0 $5 : TYPE = Parameter ty "Pea, 

00 978 3 OFFSET = Offset in UCB/CDB to gucrent value 

00 679 ; WIDTH = Width of field in UCB/CDB (B,W,L) 

00 680 ; MIN = a ne value parameter is allowed to take 

00 681 ; MAX = Maximum value parameter is allowed to take 

4 6 § 3 INVALID = Invalid flags in status word 

4 685 ; BASE = Data base (CDB,UCB) 

00 684 ; STRING = Parameter is a string value 

00 685 ; SIZE = Maximum size of string Pec enecer in bytes 

ti ? § ; CHECK = Comparison is needed (YES,NO 
aay om 

0000 $50 IF FALSE ; BLANK type 

44 o3) $$$typ = type g prm_typ_m_code ; Isolate type code 
0000 69 $$$fl 

0000 694 LIF foto BLANK ey iar $$$flg = $$$flq! prm_flg_ m_ invalid 
0000 695 -LIF IDN”<check><YES> » SSSfLg_ = $$$flqg! prm_flg_m_check 

B28 44 LIF IDN <base><CDB>, $$$flg = $$$flg’prm_Tlg_m_cdb 
9464 ory -IF BLANK string 
0000 00 -WORD $$$typ 
0000 701 LIF NOT_BLANK <min>, $$$flg = $$$flg!prm_flg_m_min 
0000 70 - LIF NOT BLANK <max>, $$$flg = $$$flg!prm_flg_m_max 
0000 70 -BYTE  $$$flg 
0000 704 $$$off = offset & prm_off_m_value Isolate offset only 
0000 705 $$$wid = 0 Set null width 
0000 706 LIF IDN <width><B>, $$$wid = <J2ere_ off _vV_width> 
0000 707 LIF IDN <width><wW>, $$$wid = Segpre. of f-v_width> 
0000 708 -LIF IDN <width><L>, $$$wid = <3aprm_off_v_width> 
0000 709 s¥ORD | yon Suid 
0000 710 .11F NOT BLA <min>, .WORD min 
0000 711 ~ LIF NOT_BLA <max>, .WORD max 
44 ar Line_prm_ “bufsiz = Line_prm_ bufsiz + 6 
9009 ris . IF FALSE ; BLANK STRING 
si rig “some HH3 1 'prm_typ_m_string ; Indicate a string parameter 
$000 718 $$$off = offset & ore. off_m_value : Isolate offset only 
0000 719 $$$wid = <size @ rm _off_¥ Gidth> & prm_off_m_width ; Get max allowed 
9000 720 $$$siz = <$$$wid orm “Oft_v_width> 
0000 721 . WORD $$$off! $$wid : 

4 4 ¢ Line_prm_bufsiz = Line_prm_bufsiz + 4 + $$$siz 

O60 4 : -ENDC ; BLANK STRING 

900 f $ LIF NOT_BLANK <invalid>, .WORD invalid 

33 7 3 -ENDC ; BLANK TYPE 

0 7 -ENDM PARAM 

00 730 ; 
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“MACRO OFSET  SIZE,OFFSET,BASE 
IF IDN <base><LINE> 
-WOR D cdb_‘size'_‘offset' 
at ucb$'size’_xe_‘offset’ 


EN D 
-ENDM = OFSET 
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6° if 1 ¢ seesesesesezseseszeezsz 
7 i ~MACRO eres fe rent gg * wee eg BASE=L INE 
734 -IIF NDF ‘base’ cnt size cnt size 
0 735 LIF NDF ‘base’ “ent bu fiz," tase’ reht butstz = 0 
0 7 § a tide = nma$c_Ct ype & nma$m_cnt_typ 
0 7 LIF ION Ber ees SemARD. $$typ = $$StypT<nma$m_cnt_map> 
0 738 $$$wid = 0 : Set reserved mask width 
0 739 LIF IDN <width><8>, S$$uid = <1anma$y_cnt_wid> 
0 740 ~LIF ION eeidtnoess § = <2anma$v_cnt_ wid 
0 741 LIF IDN <width><3 Ht s< omneey cnt_wi 
os LIF EQ ete big of : Invalid bit <a value 
74 . WORD cnt EEROR os certeel typ 
0 744 $$$off = mottset/<aidth/8> 
0 745 -WORD $$$off 
0 os ‘base’ acnt =p ize = "base’_cnt_size + 1 Tally one more entry 
0 74 "base'-cnt fsiz = ‘base’ cit _bufsiz + 5 + <wid dth/8> 
0 748 -Utt ho" pM ibd: SIM, "base’_cnt_bufsiz = ‘base’_cnt_bufsiz + 2 
0 749 .ENDM COUN 
750 ; 
751 Sessssssssssscssssssccecs 
£36 
75 
754 
755 
756 
757 
758 
759 
760 
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e) § ssseesesessssssssesese= 
62 ; 
763 .MACRO DRVRCTR TYPE, WIDTH= 16,0FFSET=0, BASE= LINE 
764 .LIF NDF ‘base’ ctr _size "base -ctr size = 0 
765 LIF NOF ‘base’ ctr “bufsiz, ‘base’ _cfr_bufsiz = 0 
766 IF IDN <base><CINES 
Ae $$$typ = nma$c_ctlin_‘type’ & nma$m_cnt_typ 
769 $$$typ = nma$c_ctcir_'type’ & nma$m_cnt_t 
770  ENDE , " 
771 $$$wid = 0 ; Set reserved mask width 
0 ore LIF IDN <width><8>, $$$wid = <la@nma$v_cnt_wid> 
0 77 “LIF IDN <width><16>, $$$wid = <2anma$v _cnt_ wid> 
0 774 “LIF ION <width><32>. $$$wid = <Senmady, cnt_w 
0 775 LIF EQ $$$wid, .ERROR m —— lid bit. or dth value 
0 776 “WORD nma$m_cnt cou, ey id!$$$ty 
0 777 LIF ION <width><8>, OFSET B, "offset, ‘base 
000 778 “IF IDN <width><16>, OFSET W, ‘offset, "base 
0 3 779 ; LIF JON <width><32>, OFSET L, offset, ‘base 
0 780 ‘base’ _ctr_size = ‘base ctr size + 1 Tally one more entry 
0 0 781 ‘base’ -ctr_bufsiz = base’ _ctr_bufsiz + 5s culdth/8> 
| 7 ¢ -ENDM DRVRCTR 
0 783 ; 
0 o 4 : § sesessssssssessssssssss 
; 786 -MACRO MOPCTR WIDTH=16, OF FSET,BITMAP 
0 787 -LIF NDF mop_ctr_size, mop_ctr_size = 0 
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000 $$$map = 0 

0 ; § $$$wid = width/8 

8 7 LIF ION se apg es _ 58Smap = 1a7 

791 - IF NOT BLANK offse 

4 79 BYTE ative Offset in couter table 

000 79 BYTE $$$nap!$$$wid Eoenae yidth in bytes + BITMAP FLAG 
9000 79 mop_ctr_size = mop_ctr_ sist + $$$wid 

000 79 wIFF ; Y BLANR 
0000 79 mm 3; End of table 
4 79 ~ENDC ; : NOT BLANK 
000 798 .ENDM MOPCTR’ 

0 799 ; 

0 800 ; ssseseeseeessszezesezee 
0000 801 ; 
0000 So MACRO SKIP BIT,LOC,REG,CONTEXT=W, Le ; SKIP FIELD 
0000 0 BBC #BIT,LOC,l - ; Br if field not present 
0000 80 TST CONTEXT (REG) + : Skip next field 
0000 Hy l: 
9000 -ENDM SKIP 
0000 ; 
444 § seeeseessessessssssesss 
44 —" SDISPATCH, INDX, VECTOR, TYPE=W,NMODE=S“°#, ?7MN, ?MX,27S,?7SS,722Z 
0000 
0000 -MACRO a thy $OSP1 
0000 - IRP $051 _2,$DSP1_1 
0000 $DS $DSP1_2 
0000 END 
0000 .ENDM sbepi 
0000 
0000 MACRO yet gate 1 Pos, WA 2 


8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
0000 8 1-FN>*2 + § 
0000 8 “ORD Pe eDSPe. 2s 
0000 8 .ENDM $DSP2 
0000 +=8 
0000 +8 
0000 ‘8 -MACRO SBN}. $BND1_1,$B8ND1_2, sono a 
0000 8 $BND $8ND1_1,$8ND1_ 
444 : -ENDM NDS 
0 -MACRO $BND2, $enn2 | »$SBND2 
0 : LIF BNB2_ 1 SBNDS a2? ee -=$BND2_2 
0 .ENDM 
0 
0 


-MACRO $BND $BND_1,$8ND_2 
- IRP $BND-3,<SBND .2> 
SBNDT $BND_1,$BND_3 


SOoOooooo 


ENDM SEND 

.=0 

$BND GT, <VECTOR> 
$BND LT. <VECTOR> 


0 
§ 
4 
5 
; 
8 
9 
0 
1 
¢ ; 
4 
5 
; 
8 
9 
0 
1 
5 
4 
5 
6 
? 
8 
9 
0 
1 
5 
4 
5 
6 
? 
8 
9 
0 
1 
5 
4 
5 
; 
9 
0 
1 
5 
4 
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45 .=SS 
4 
t3 CASE‘ TYPE 
48 S: 
4 REPT 
50 WORD 
0 51 END 
0 26 
00 5 =$ 
00 54 
3 22 SOSP1 
0000 837 
0000 58 
0000 59 .ENDM 
0000 860 
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INDX ,#<MN-27Z>,NMODE ' <MX-MN> 


MX-MN+1 
<MX-MND>*#2 + 2 


<<VECTOR>> 


o=<MX-MND>*2 + S + 2 
SDISPATCH 
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KEDRIVER = VAX/VMS DEUNA/DELUA Dri Pp 
a3 E ELUA Driver a mi 
0 62 ; 
09 es : Overlays of IRP 
09 65 , SDEFINI IRP GLOBAL 
00000021 0 $6 . = IRPSW_FUNC+1 
0 1 68 SDEF IRPS$B_XE_FUNC  .BLKB 
00000038 00 $3 . = IRPSL_MEDIA 
8 18 SDEF IRPS$W_XE_RID 
0 % SDEF IRP$B_XE_SLOT -BLKB 
9 H oe SDEF IRP$B_XE-RING  .BLKB 
00000046 003A 75 . = IRP$Q_STATION+6 
046 876 SDEF IRPSB_XE_DATAP .BLKB 
0000003C ire 878 . IRPSL_MEDIA+4 
903¢ 879 SDEF IRPSL_XE_SYSBUF .BLKL 
0000003C 0040 881 . = IRPSL_MEDIA+4 
003C 88¢ Sper iRPSL_XE_DATBUF .BLKL 
00000038 iP Ht IRPSL_MEDIA 
0038 885 Sper TRPSUL XE_USERSIZ .BLKW 
QO00003A O03A 887. IRPSL_MEDIA+2 
te rt Sper IRPS$W_XE_STATUS .BLKW 
0000003C 003C 890 . IRPS$L_MEDIA+4 
005¢ 891 Sper IRP$L_XE_USERBUF .BLKL 
00000040 0040 $38 = IRP$Q_STATION 
9060 89% $DEF IRPSL_XE_P2BUF .BLKL 
00000044 0044 896 . = IRPS$Q_STATION+4 
ane? 344 Sper IRPSW_XE_P2SIZ .BLKW 
00000040 0046 899 . = IRP$Q_STATION 
6060 300 SDEF IRPSW_XE_CODE  .BLKW 
0000003C 004 90 IRPS$L_MEDIA+4 
43 o82 Sper IRPSL_XE_MAP ~BLKL 
00000040 ope 905. IRP$Q_S yates 
4 906 Sper TRPSL E_DGUNI .BLKL 
Onee Feith SDEF IRPSL_ XE “UPADR .BLKW 
00000094 0046 909 . = IRPSL_RBUFH_AD 
094 910 ASSUME “IRPSL_RBOFF Ed +4 
3 911 SDEF IRP$Q_XE_PCB -BLKQ 1 
0000003A 009C 318 . = IRPSL_MEDIA+2 
a03¢ a8 SDEF IRP$W_XE_PROTYP .BLKW 
00000090 003C 916. = IRPSL 
317 $DEF TRPSL. XE. SHR -BLKL 


138: 
: 


AX/VMS Macro v04-00 Page 


DRIVER.SRCIJXEDRIVER.MAR; 1 


DEUNA/DELUA driver internal function code | 


RCV/XMT request ID 
RCV/XMT mapping slot number 
RCV/XMT ring entry number 


XMT buffered data path number 

XMT system buffer address 

User RCV data buffer address 

User P2 buffer size on sensemode 
Completion status 

User P1 buffer address on sensemode 
User P2 buffer address on sensemode 


P2 return buffer size on sensemode 


Bad parameter code on startup request 


Diagnostics buffer mapping info 


Diagnostics buffer UNIBUS address 
Micro-process internal address 


Snap shot of PCBB 
Protocol type for user 


Address of SHR structure for user 


i 


sets 


00000060 


060 


PAPA AAAOAOAAO 
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= IRPSL_FQFL 
DEF IRPS$C_XE_STD 


tere 


Define 
NOTE: 


_VIELD XE_FC,0,<= 
<INIT>,= 


<WTMULTI>, - 
<WTMODE>,= 
<START>, = 


<RESTART>, ~ 
<CHMODE>,- 
<MOPCTR>,= 
<ESTEST>,=- 
<HALT>,= 

> 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
3 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
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zz 
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~ 
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>. 
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SDEFEND IRP 


~BLKL 1 


mite ts 9 0: 3: 


EP=-1984 00:1 
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: End of ‘’standard’’ IRP 


driver internal function codes stored in IRP$B_XE_FUNC of IRP. 
"these are not really used as bit offsets - but as Values. 


Internal function codes 
Initialize DEUNA/DELUA 
Perform startup self test 
Load ring descriptors 
ice multicas address 
ace oe mu nae: address List 

r 
Start AAT T/RECV processes 
Transmit request 
Receive request 
Stop protocol 
Read counters 
Read and clear counters ; 
Write new multicast address List 
Load memory 

Read memory 

Load and start micro-address 
Load system ID parameters 
Read system ID parameters 
Stop xmit and receive process 
Perform a - Sent 
Read port sta 
Read default physical address 
Cancel request 
Restart PROTOCOL 

Change the mode yp in de 
MOP read counters req 
Extended Selt-test (SELUA Only) 
Halt Port (DELUA Only) 


End of IRP overlays 
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00 959 ; 
09 309 : Overlays of CxB 
306 SDEFINI CXB GLOBAL 
00000020 ° 0 964 . = CXBSL_SPARE1 
965 SDEF CRBSB_XE_FUNC .BLKB 1 ; DEUNA/DELUA driver internal function code 
00000022 0021 208 -BLKB 1 3 SPARE 
0 967 SDEF § CXB$W_XE_RID ; RCV/XMT request ID | 
0 968 SDEF CXBSB_XE_SLOT .BLKB 1 3 RCV/XMT mapping slot number 
° z 370 SDEF CXBSB_XE_RING .BLKB 1 3; RCV/XMT ring entry number 
4 71: | 
88 : 358 3; The following overlays are for transmits only 
00000024 0024 974 : = CXBSL_SPAREO 
00 4 8 SDEF CRBSL_T_IRP -BLKL 1 3 Associated IRP address (if any) | 
0000003A 00 ; 379 . = CXBSC_HEADER=<XE_C_HEADER> | 
003A 978 SDEF CRBST_T_DATA -BLKB XE_C_HEADER ; Standard Ethernet header 
He 
0048 381 : The following overlays are for receives only | 
00000008 0048 983 ; = CXB$B_CODE 
on08 + SDEF CRBSB_R_FLAGS .BLKB 1 ; Receive message flags | 
0000001C O00C 986 . = CXBSL_END_ACTION | 
ote + 14 SDEF CRBSW-R_NCHAIN .BLKW 1 3; Number of buffers in chain | 
00000014 OIE 989 . = CXBSL_IRP | 
the 330 SDEF CRBSW_R_LENERR .BLKW 1 ; Length and receive error status 
00000038 001 338 . = CXBSC_HEADER = <XE_C_HEADER+XE_C_CNTSIZ> 
0038 993 SDEF CRBST_R_DATA ; Start of receive data 
003 994 S$DEF CXB$G_R_DEST -BLKW 3 ; Destination node address 
QOO3SE 995 SDEF CXB$G_R_SR -BLK 3 ; Source node address 
0044 996 $DEF  CXBSWIRTPTYPE <BLKW 1 ; Protocol Type 
0046 997 SDEF CXBST_R_US ; Start of user data ; 
nk 998 SDEF CXBSW_R_SIZE -BLKW 1 : Size of received message (if padded). 
SF 8s 
BRE 1001 ; NOTE: The CXB functions are the same as for an IRP (IRP$B_XE_FUNC) 
$68 1008 | 
0048 1004 SDEFEND CXB : End of CXB overlays 
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aN 
wo 


1 3 
3 i Definitions that follow the standard UCB fields 
1 Py 
88 si SDEFINI UCB GLOBAL ; Start of UCB definitions 
00000098 09 : \ . = UCBSC_NI_LENGTH ; Position at end of UCB NI extension 
B89 1014 SDEF UCB$Q_XE =QuEUES 3; Message and 1/0 request queue heads 
098 1015 SDEF UCBSQ_XE"SHARE .BLK 1 ; List of shared users 
QOAO 1 1 SDEF UCB$Q_XE_100S ; Start of the I/0 queues 
SoAe 1017 SDEF UCBSQ_XE_RCVMSG .BLKQ 1 ; Receive messages completed 
AS 1018 SDEF UCBSQ_XE_RCVREQ .BLKQ 1 ; Receive IRP waiting for messages 
00B0 1019 SDEF UCBSQ_XE_XMTREQ .BLKQ 1 3% Xmit IRP wait queue (PT-TO-P 
00000004 ppee 8 9 UCBSC_XE_QUEUES = <.-UCB$Q_XE_QUEUES>/8 ; Number of queue heads 
O0B8 10 § SDEF UCBSL_XE_PID -BLKL 1 ; Starter's PID 
OOBC 1025 SDEF UCBSL_XE-CPID .BLKL 1 ; Creator's PID 
00CO 1024 SDEF UCBSL_XE_AST -BLKL 1 3 Attention AST List 
00C4 18 5 SDEF UCBSL_XE_DEFUSR .BLKL 1 ; Default shared user (shared use only) 
00c8 10 $ $DEF UCBSW_XE_QUOTA .BLK 1 ; Receive buffer quota 
aaee \° i SDEF UCBSW_XE_PROTYP .BLKW 1 ; Ethernet protocol type 
OOCC 1029 S$DEF UCBS$B_XE_SETPRM 3; Start of parameter section 
OOCC 1030 SDEF UCB$G_XE_DES -BLKW 3 ; Destination address for shared user 
O0D2 1031 SDEF UCBSW_XE_HBQ -BLKW ; Hardware buffer quota 
S38 180 Ser GUnREcHESAPA RUB] Aaaheeeh seers orth 
Be02 1882 WXEL < ; Number of receive buffers 
00D6 1035 SDEF UCBSB_XE_SHRPRM ; Start of ‘’shared user’ validated prms 
0006 1036 SDEF UCBSW_XE_BSZ -BLKW 1 ; Device buffer size 
00D8 1037 SDEF UCBS$B_XE_PRO -BLKB 1 ; Protocol Sqhestten 
00D9 1038 SDEF | UCBSB"XE"PAD  .BLKB 1 : Padding mo 
OODA 1039 SDEF UCB$B_XE_DCH -BLKB 1 ; Data c x .. J 
00DB 1040 SDEF UCBSB_XE_PRM -BLKB 1 ; Promiscuous mode 
eds 193) SDEF UCBS$B_XE-MLT -BLKB 1 ; Multicast (all) address state 
8008 1068 SDEF UCBSB_XE_CDBPRM ; Start of settable parameters for CDB 
ODD 1044 SDEF UCBSB_XE_CRC -BLKB 1 ; CRC generation mode 
OODE 1045 SDEF UCB$B_XE_CON -BLKB 1 : Controller mode 
ODF 1966 $DEF UCBSB_XE_EKO -BLK 1 ; Echo mode (DEUNA Only 
OEQ 1047 S$DEF UCBSB_XE_ILP -BLKB 1 : Internal Loopback oe (DELUA Only) 
00000004 00E1 1048 UCBSC_XE_CDBPRM = .-UCBSB_ XE_CDBPRM 
00000008 bE! ! rh UCBSC~XE-SHRPRM = .-UCB$B_XE_SHRPRM 
OE1 1051 SDEF UCBSG_XE_PHA -BLKW 3 3; User defined physical address 
0000000A ita ! 26 UCBSC_XE_SETPRM = .-UCBS$B _XE_CDBPRM 
0E7 1938 SDEF UCBSB_XE_MULTI .BLKB 1 ; Number of entries in MULTI 
433 1055 SDEF UCB$B_XE_MLTTBL “BLKB 1 : Number of entries in MLTTBL 
of 1 2$ $DEF uc XE-MULTI .BLKW senAt CT Multicast address List 
193 : 3 SDEF UCBSG_XE-MLTTBL .BLKW *MAX_C_MLT ; Multicast generation List 
161 1 3 SDEF UCBSW_XE_CTR 3 Start of counter section 
161 1060 SDEF UCBSW-XE-MNECTR .BLKW 1 ; Multicast address not enabled 
193 1061 S$DEF UCBSW_XE_UBUCTR .BLKW 1 ; No buffer available counter 
165 1062 SDEF UCBSL-XE-SBLCTR .BLKL ; Number of blocks sent 
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SDEF UCBSL_XE_SBYCTR .BLKL 1 ; Number of bytes sent 
SDEF UCBSL_XE_RBLCTR .BLK 1 ; Number of blocks received 
SDEF UCBSL_XE_RBYCTR .BLKL 1 ; Number of bytes received 
; Unused/unneeded fields 
SDEF UCBSW_XE_TOTQUO .BLKW 1 ; Total quota for shared UCB 
SDEF UCBSB_XE_MST -BLK 1 ; Maintenance state 
SDEF UCBSL_XE_FFI -BLKL 1 Fast interface BLOCK address 
SDEF UCBSL_XE_STIRP .BLKL 1 3% Address of PT-TO-PT Startup IRP 
SDEF UCBSL_XE_COB -BLKL 1 ; Address of CDB 
SDEF UCBSC_XE_LENGTH ; Size of XEDRIVER UCB 


: Define device status bits 


' $VIELD UCB,0,<- 
<XE_INITED, .M>,- 


<,15,- 
<XE_PROTYP, ,M>,- ; Protocol type specified 
<XE_SHARE, ,M>,=- ; Shared protocol type 


; XEDRIVER UCB$W_DEVSTS bits 
<XE"RUN, ,M>,= : Unit is in RUN mod 


; Device is initTtalized 
; RESERVED 


e 
<XE“START, ,M>,= ;% Unit is in PT-TO-PT startup state 
<XE_STACK,,M>,= ;% Unit is in PT-TO-PT stack state 


<,7>,° ; Reserved 

<KE_INTERLOCK, .M>,- : RESTART bit is interlocked 
<XE_RESTART, ,M>,=- ; Automatic RESTART on PROTOCOL 
> requested 


SDEFEND UCB : End of UCB definitions 


— a + a a as ts Ss 4s os 2s SS os as 1 1s td 1 ss 
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1093 ; 

3 igs ; Device register offsets and bit definitions 

5 1398 SDEFINI XE GLOBAL ; Start of port CSR definitions 
i 1396 SDEF PCSRO .BLKW 1 ; Ist word of port CSRs 

002 1100 VIELD XE_PCSRO,0,<- ; PCSRO bit definitions 

0002 1101 x <COMAND,4,M>,- : Port comman 

000 1198 <ILLINT, ,M>,- : Illegal Interrupt (SOFTWARE DEFINED) 
000 110 <RSET,,M>,=- 3 DEUNA/DELUA Reset 

B38 1198 <INTE,,M>,=- : Interrupt enable 

0 1105 <INTR,,M>,= ; Interrupt summary 
0002 1106 <USCI,,M>,- : Unsolicitated State Chenge interrupt 
0002 1107 <FATL,,M>,- ; Fatal Error interrupt (DELUA Only) 
0002 1108 <RCBI,,M>,- ; Receive buffer unavailable interrupt 
B00S 1109 <DNI,,M>,- ; Done interrupt 

0002 1110 <TXI1,,M>,- 3; Transmit done interrupt 

0002 1111 <RX1,,M>,- 3 Receive done interrupt 

000 1116 <PCEL.,M>,- ; Port command error interupt 

0002 111 <SERI,,M>,- 3; Status Error interrupt 

Boos 1114 > 
0002 11175 
0002 1116 -VIELD XE_CMD,0,<- 3; Define port commands 
Bn0S 1117 <NOOP>,- 3; NO-OP 
0002 1118 <GETPCBB>,- : Get Port Control Block Base (PCBB) 
0002 1119 <GETCMD>,=- 3; Get command from PCBB 
bo05 1120 <STEST>,= ; Perform self test 
0002 1121 <START>,=- 3; Reset xmit and receive ring pointers 
0002 1166 <BOOT>,= 3; Boot DEUNA/DELUA 
0002 112 <,2>,° 3; RESERVED 
0002 1124 <PDMD>,- : Polling demand wake up 
0002 1125 2>,° ; RESERV 
0002 1126 <ESTEST>,=- : Extended Self-test (DELUA Only) 
8505 1127 <,2>,° ; RESERVED 
0002 1128 <HALT>,- t Halt Port (DELUA OnLy) 
booS 116? <STOP>,=- ; Suspend the DEUNA/DELUA 
0002 1130 > 
O05 1131 
954 1138 SDEF PCSR1 -BLKW 1 : 2nd word of port CSRs 
0004 1134 -VIELD XE_PCSR1,0,<- 3; PCSR1 bit definitions 
0004 1135 <STATE,4,M>,= ; State ; 

4 1138 <DEVID,3,M>,- 3; Device Identification 

004 11 <PCTO,1,M>,- 3: Port command timed out 

0004 1138 <SELF TEST.6,M>,- ; Selftest error code 

0004 1139 <1CAB, ,M>,- ; Interconnect Cable BAD (DEUNA Only) 
0004 1140 <XPWR,,M>,- : Transceiver Power BAD (DEUNA Only 
44 1141 > 

004 a6 

0004 114 -VIELD XE STAT,0,<- ; Define port states 

0004 1144 <RESET>,= ; Rese 

4 4 1145 <PRIMLD>,- ; Primary load 

8 4 1146 <READY>,=- 3; Read 

004 1147 <RUND>,=- 3 Runnin 

Babe 1148 <,1>,° ; RESERVED 

004 1149 <UHALT>,=- ; UNIBUS halted 


i 
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0004 118} <MIUHAL TS, : " oad UNIGUS halted 
- § an alte 
8 4 1126 terrace - ; Port halted (DELUA Only) 
$04 1184 
004 1155 -VIELD XE _DEVID,0,<- ; Define device identification codes 
Bae 1138 <DEUNA>, = ; DEUNA 
004 115 <DELUA>,- 3; DELUA 
ae 
0004 1160 S$DEF PCSR2 ; 3rd word of port CSRs 
Boe 1161 SDEF PCBBO «6«CBLKWSCSdM 3;_Low 16 bits of the Port Control Block 
o008 1188 ocean: 
0006 1164 SDEF PCSR3 ; 4th word of port CSRs 
0006 1165 SDEF PCBB2 .BLKW 1 3; Hi 2 bits of the Port Control Block 
S008 1167 ig Ba 
0008 1168 SDEFEND XE : End of device register definitions 
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8 68 1170 
1171 ; 
e 1106 3; Define the Port Control Block Base (PCBB) Offsets and Function codes 
060 Wee SDEFINI PBB GLOBAL 3; Define Port Control Block Base 
0900 1128 SDEF PBB_B_FUNC -BLKB 1 ; PCBB function code 
001 1177 SDEF PBB-B_SUBFUNC .BLKB 1 PCBB sub function code 
0002 1178 SDEF PBB_W_PCBB2 -BLK 1 : Command specific 
0004 1179 S$DEF PBB_W_PCBB4 -BLKW 1 3 
0006 1180 SDEF PBB_W_PCBB6 -BLKW 1 38 
B88 1181 SDEF PBB_C_LENGTH 3; Length of PBB 
00000008 B38 1 ¢ PBB_K_L LENGTA = PBB_C_LENGTH ; Length of PBB 
0008 1184 -VIELD PB_FC, 0. <- 3; Port Control Block function codes 
0008 1185 <NnOoOP> : NO-OP 
0008 1186 <LSUADBR> - 3; Load and start microaddress 
9008 1187 <RDDEFAULT>, - : Read. de default physical address 
0008 1189 <RDPHYAD>,- ; Read physical address 
0008 1190 <WTPHYAD>,=- 3; Write physical address 
0008 1191 <RDMULTI>,=- 3; Read multicast address List 
0008 1138 <WTMULTI>,=- ; Write multicast address List 
0008 119 <RDRING>,= ; Read ring format 
0008 1194 <WIRING>,- 3; Write ring format 
0008 1195 <RDCNTS>,=- ; Read counters 
0008 1196 <RCCNTS>,=- 3; Read and clear counters 
0008 1197 <RDMODE>,- 3; Read mode 
0008 1198 <WIMODE>,- 3; Write mode 
0008 1199 <RDSTATUS>, = ; Read port statu 
0008 1200 <RCSTATUS>,=- : Read and clear pore status 
0008 1201 <DUMPMEM>,=- 3 Dump internal memory 
0008 1202 <LOADMEM>,- ; Load internal memory 
0008 1203 <RDSYSID>,=- ; Read system ID parameters 
0008 1204 <WTSYSID>,=- ; Write system ID paramteters 
0008 1205 <RDSERAD>,=- 3; Read load server address 
0008 1206 <WISERAD>,=- 3; Write load server address 
0008 1207 > 
0008 1208 
0008 1$0F -VIELD PB_MOD,0,<- 3 ef control block mode definitions 
0008 1210 <HOX, A>, - : { Gustes mode (Echo mode - DEUNA) 
0008 1211 3 RESE 
0008 1 \¢ “LOOP, .M>, - : Enable internal Loopback 
0008 121 Si. ~ ; Disables CRC generation on transmit 
0008 1214 3; RESERV 
0008 151? cin, >, - : Enable Internal Loopback (DELUA Only) 
0008 1216 ,o> 3; RESERVED 
0008 1217 SANT, .m>,- $ Disable maintenance features 
0008 1218 1>,- 3; RESERV 
0008 1219 <ECT; .M>,- : Enable H4000 (xcvr) collision test 
B88 1220 <TPAD,,M>,- ; Enables transmission of PAD chores sare 
008 1221 <DROC,,M>,- : Disables DATA CHAINING on receive 
008 1 $ <ENAL, ,M>,- ; Enables recognition of all MULTICASTS 
4 ! ? - smeste- state ; Enables promiscuous mode 
008 1225 ae 
008 1226 SDEFEND PBB 3; End of PCBB definitions 
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; Define the Unibus Data Block Base 


.=0 

SDEF UDB_CTR_L_ wre -BLKW 1 
SDEF UDB-CTR GTH 
UDB_CTR_K_LENGTA = UDB. CTR_C_LENGTH 


; Define the Unibus Data Block Base 

-=0 

SDEF UDB_MLT_G_ENTRY .BLKW 3 

SDEF UDB" MLT~ CLLEN NGTH 

UDS_MLT_K_LENGTA = UDB_MLT_C_LENGTH 
SDEFEND UDB 

> Define the Transmit Ring Entry 


SDEFINI XMT GLOBAL 


SDEF XMT_W_SLEN -BLKW 1 
SDEF XMT—W~SEGBL -BLKW 1 
SDEF XMT~B-SEGBH -BLKB 1 
SDEF XMT—B_FLAGS -BLKB 1 
SDEF XMT"W_TDRERR -BLKW 1 
SDEF WLR -BLKW 1 
$DE T Clk 
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Define Unibus Data Block Base (UDBB) for ring buffers 


Transmit Desc Ring Base low 1 
Transmit Desc Ring Base da 
Length of each transmit en 


Receive Desc Ring Base hi 2 b 
Te hes of each receive entr 


Size of UDBB for ring buffers 
Size of UDBB for ring buffers 


(UDBB) for getting counters 


; Each entry is one word 
Size of each counter entry 


* MAX C_CTR ; Size of counter area 


(UDBB) for a Multicast address List 


; Entry has a 48 bit logical address 


; Size of each logical address 
Size of multicast List 


; End of UDBB block descriptors 


; Start of Transmit Ring Entry format 


; Segment Length 

: Segment address (low <4 ase 
; Segment address (hi 2 b 

; Transmit status flags 


Time domain reflectometry value 


& and transmit errors 
; Request | 


; Size of transmit buffer ring entry 


F ENGTH ; 
XMT_K atts = XMT_C_LENGTH * MAX_C_XMT ; Size of xmit ring 


-VIELD of FLG,0,<- 


<ERRS, ,M>,=- 
<OWN, ,M>,- 


Define oy bits 
End of packet 

Start of packet 

Transmit Deferred 

One collision encountered 
More than one retry required 
Address ne on xmit request 
Error summ 

If 0 then po a by driver 


Number of entries in the xMIY desc ring 
Receive Desc Ring Base low y+ ag 


er of entries in the ry desc ring 
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a0h 1285 > 
OOA 1 
3 A 1 5 -VIELD XMT_TERR,O,<- ; Define reflectometry and errors 
OOA 1288 <TOR,10,M>,= 3; Time domain reflectometry value 
449 1289 <RTRY,,M>,- ; Failed after 16 retries 
OOA 1290 <LCAR, ,M>,- ; Loss of carrier 
Boba 1291 <LCOL,,M>,- ; Late collision 
OOA 1 3 <UFLO,,M>,=- ; Underflow error (DELUA Only) 
QOOA 129 <UBTO,,M>,- ; UNIBUS timeout 
QOOA 1294 <BUFL,,M>,- ; Buffer Length error 
QOOA 1295 > 
Bbbn 1 36 
OOA 129 SDEFEND XMT : End of Transmit Ring Entry 
0000 1298 ; : 
44 ! +4 3 Define the Receive Ring Entry 
444 130) SDEFINI RCV GLOBAL ; Start of Receive Ring Entry format 
444 1308 SDEF RCV_W_SLEN -BLKW 1 ; Segment Length 
0002 1304 SDEF RCV_W_SEGBL -BLKW 1 ; Segment address (low 16 bits) 
0004 1305 SDEF RCV_B_SEGB -BLKB 1 ; Segment address (hi 2 bits) 
0005 1306 SDEF RCV_B_FLAGS -BLKB 1 ; Receive status flags 
0006 1307 SDEF RCV_W_LENERR -—BLKW 1 ; Message Length and receive errors 
0008 1308 SDEF RCV_W_RID -BLKW 1 ; Request | 
QO0A 1309 SDEF RCV_C_LENGTH ; Size of receive buffer ring entry 
00000050 Boon 1319 RCV_K_LENGTA = RCV_C_LENGTH * MAX_C_RCV ; Size of receive ring 
000A 1316 -VIELD RCV_FLG,0,<- ; Define flag bits 
OO0OA 131 <ENP, ,M>,= : End of packet 
QOOA 1314 <STP,,M>,- 3; Start of packet 
QOOA 1315 1>5- ; RESERVED 
OOOA 1316 <CRC,,M>,- ; CRC error 
000A 1317 <OFLO. ,M>,- ; Message overflow 
OOOA 1318 <FRAM, ,M>,- 3; Framing error 
QOOA 1319 <ERRS, ,M>,- ; Error summary , 
Q00A 1320 <OWN, ,M>,= : If 0 then owned by driver 
Q00A 1321 
000A 1358 : 
OOOA 132 -VIELD RCV_LERR,O,<- ; Define MSG Length and error bits 
QOOA 1324 <MLEN,12,M>,- ; Message Length 
QO0A 1325 <OVRN>,- ; Overrun error (DELUA only) 
000A 1358 <NCHN, ,M>,- ; No Data Chaining 
QO0A 1327 <UBTO, ,M>,- ; UNIBUS timeout 
QO0A 3 3 <BUFL,,M>,=- ; Buffer Length error 
QOOA 1 > 
000A 1330 > ; 
QO0OA 1331 SDEFEND RCV 3 End of Receive Ring Entry 
0000 1 ¢ 
0000 1 ; 
B00 ! : 3; Transmit Buffer Header Format 
43 ! %9 SDEFINI XBUF ; Define transmit buffer header 
000 1 33 SDEF XBUF _G_DEST -BLKW 3 ; Destination address 
006 1339 SDEF XBUF _G_SR ; Source address (overlays UCB) 
it 1340 SDEF XBUF_W_UNUSED .BLKW 1 > sometimes overwritten with DEST 
0008 1341 $DEF | XBUFTL“UCB -BLKL 1 : UCB address 


G 16 


XEDRIVER = VAX/VMS DEUNA/DELUA Driver 16-SEP-1984 00:32:5 AX/VMS Macro V04-00 Page 27 
Nara met 7: 0:38:34 DRIVER. SRCIXEDRIVER.MAR; 1 . (8) 
OC 1342 SDEF XBUF _W_TYPE -BLKW 1 3; Protocol type 
OE 1345 SDEF XBUF_T_DATA ; Start of xmit data 
SRE : rf: SDEF XBUF _C_HEADER 3; Size of buffer header 
O16 ! : SDEF XBUF _W_SIZE -BLKW 1 ; Size of buffer (only if padding) 
61 1348 SDEFEND XBUF ; End of transmit buffer header 
000 1349 
0000 1350 ; 
44 1 2] ; Block header for non-DECnet xmit buffers 
4 } 38 : SDEFINI BLK ; Define a standard block header 
0000 1355 SDEF BLK_L_LINK -BLKL 2 ; Forward and backward queue Links 
0008 1356 SDEF BLK_W_SIZE -BLKW 1 ; Block size 
QOOOA 1357 SDEF BLK B-TYPE -BLKB 1 : Block type 
0008 1358 SDEF § BLK-B“SPARE -BLKB 1 > SPARE byte 
Q00C 1359 SDEF BLK_T_DATA ; Start of data 
OOOC 1360 SDEF BLK_C_HEADER ; Size of buffer header 
000C 1361 
000C 1362 SDEFEND BLK 
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000 1364 ; 
: ! 6g ; Define the DEUNA/DELUA Controller Data Block (CDB) fields 
000 1367 ° 
4 : rt: SDEFINI COB GLOBAL ; Start of CDB definitions 
000 1370 S$DEF COB_L_FQFL .. a ; Fork queue forward Link 
0004 1371 SDEF COB_L_FQBL -BLKL 1 3 Fork queue backward Link 
0008 1 ie SDEF CDB_W_SIZE -BLKW ; Size of COB 
QOOA 1375 SDEF COB_B. TYPE -BLKB 1 ; Type of structure 
000B 1374 SDEF CDB_B_FIPL -BLKB 1 ; Fork IPL 
Bats 1375 $DEF COB_L_FPC ~-BLKL 1 i Fork PC 
010 1 6 SDEF CDB_L_PCSRO ; Port CSRO and CSR1 contents 
0010 1377 SDEF COB_L_FRS -BLKL 1 : Fork R3 
0014 1378 SDEF CDB_L_FR4 -BLKL 1 : Fork R4 
0018 1379 SDEF COB_B_NEXTXMT .BLKB 1 ; Next entry in XMT ring 
0019 1380 S$DEF COB_B_NEXTRCV. .BLKB 1 3 Next entry in RCV ring 
001A 1381 ASSUME MAX~C_XMT 
OO1A 1 S¢ ASSUME MAX C_RCV LE 8 
001A 13835 SDEF COR ~ RCVMAP -BLKB 1 ; RCV map slot in use flags 
0018 1384 S$DEF COB. “TMAP -BLKB 1 ; XMT map slot in use flags 
001C 1385 SDEF CDB_it_ ‘MAP -BLKL MAX_C_RCV ; RCV mapping vector 
003C 1356 SDEF CDB_L_A 4AP -BLKL MAX_C_XMT ; XMT mapping vector 
004C 1387 SDEF CDB_L_XRADOR -BLKL MAX_C_XMT ; XMT ring entry address vector 
Boe 1388 SDEF CDB_L_RRADOR -BLKL MAX_C_RCV ; RCV ring entry address vector 
007C 1390 SDEF CDB_Q_ QUEUES ; Start of CDB queues 
0O7C 1391 SDEF CDB_Q_XMTREQ -BLKQ 1 ; Transmit request queue 
00000001 0084 1336 CDB_C_ABORTS = <.-CDB_Q_QUEUES>/8 3; Number of Queues to abort requests 
0084 1393 $DEF CDB_Q_INPUT -BLKQ 1 : Input process queue 
Q008C 1394 SDEF CDB_Q_00 -BLKQ 1 ; IRP waiting DNI to set 
0094 1395 SDEF CDB_Q_XMTPND -BLKQ 1 ; Transmit pending queue 
009C 1396 SDEF CDB_Q_RCVBUF -BLKQ 1 ; Receive buffer queue 
00A4 1397 SDEF CDB_Q_RCVPND -BLKQ 1 : Receive pending queue 
OOAC 1398 SDEF CDB_Q_POST -BLKQ 1 : Post process queue 
00000007 pes + 44 CDB_C_QUEUES = <.-CDB_Q_QUEUES>/8 ; Number of Queue Heads 
00B4 1401 SDEF CDOB_B_LASTXMT .BLKB 1 ; Last entry done in XMT ring 
0085 1006 SDEF COB_B_LASTRCV .BLKB 1 ; Last entry done in RCV ring 
00B6 1403 SDEF COB_B_RCVCNT ut Be ; Count of receives given to DEUNA/DELUA 
00B7 1404 SDEF CDB_B_XMTCNT -BLKB 1 ; Count of xmits given to DEUNA/DELUA 
0088 1405 SDEF CDB_W_BSZ -BLKW 1 ; Device buffer size 
Boer 1008 SDEF CDB_W_QUOTA -BLKW 1 ; SYSTEM buffer quota 
00BC 1208 SDEF CDB_L_PCBBMAP .BLKL 1 ; PCBB UNIBUS map register number/count 
00CO 1409 SDEF CDB_L_PCBBUA -BLKL 1 ; PCBB UNIBUS address 
00C4 1410 SDEF CDB_L_DEVDEPEND .BLKL 1 ; Device dependent longword 
00C8 1411 SDEF CDB_L_UCBO -BLKL 1 ; Address of UCB #0 
00CC 141g SDEF  CDB"B”SPAR -BLKB 1 > SPARE BYTE 
OOCD 1413 SDEF CDB_B_DIAG -BLKB 1 ; Diagnostic info byte 
sit 1213 SDEF CDB_W_DIAG2 -BLKW 1 ; Second word of diagnostic info 
it 1618 SDEF CDB_W_UFDCTR -BLKW 1 ; No protocol type counter 
it4 1417 S$DEF CDB_W_SBUCTR -BLKW 1 ; System buffer unavailable 
+73 1213 SDEF CDB_W_UBUCTR -BLKW 1 ; No buffer available on all PTs 
bone 1420 ; Define the UNIBUS mapped portion of the CDB (DEUNA/DELUA data structures) 


SDEF CDB_C_LENGTH ; Size of DEUNA/DELUA COB 
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De 1652 §DEF —CDB_G_MAPPED 5 f_UNIBUS d portion of CoB 
a tart o mapped portion o 
006 14 : SDEF  CDB-G"PCBB .BLKB = PBB_K_LENGT B eat 
ODE 14246 S$DEF CDB_G_XRUDB -BLKB UDB “BOF K “LENGTH ; XMIT/RECV buffer descriptor 
OEA 1425 S$DEF CDB_G_CUDB -BLKB UDB°CTRIK-LENGTH ; Counter buffer 
12A 14 § SDEF CDB_G_MUDB -BLKB DB_MLT_ K oLENGTH Multicast address buffer 
166 1427 SDEF CDB_G_SCRUDB -BLKB TCH * 
Q16E 1428 SDEF CDB_G_SIDUDB -BLKB UDB_SID é PENTA : Syston ID UDBa 
Q1AA 1429 SDEF CDB_G_XRING -BLKB XMT_K_LENGTH : “xmit ring buffer 
O1D2 14350 SDEF CDB_G_RRING »-BLKB = RCV_ K =LENGTH Recv ring buffer 
0000014C 0 1431 CDB_C_MAPPED = .-CDB_G_MAPPED : Size of UNIBUS mapped portion of CDB 
8 14 ¢ SDEF CDB_C_ZERO t fine of CDB to zero feverything from 
14 ; _the beginning J ~ S$ point) 
0 1434 S$DEF CDB_B_TIM_XMT .BLKB 1 ; Transmit timer cel 
0 1435 SDEF COB_B_TIM DNI .BLKB 1 : ONI timer cell 
0224 14 $ SDEF CDB_L_PRMOSER .BLKL 1 ; Promiscuous user's UCB address 
0228 1437 SDEF CDB_L_TQE BLKB TQESC ALENGTH ; Timer queue element 
0258 1438 SDEF CDB_W_MODE -BLKW 1 ; DEUNA/DELUA hardware mode 
025A 1439 SDEF CDB_B_STS -BLKB 1 ; Controller status 
0258 1440 S$DEF CDB_B_PAD -BLKB 1 : pecctng mode 
O25C 1441 SDEF CDB_B_OCH -BLKB 1 ; Data chaining 
025D 1726 SDEF CDB_B_PRM -BLKB 1 ; Promiscuous mode 
Osae ror SDEF COB_B_MLT -BLK 1 ; Multicast (all) address state 
O25F 1445 SDEF COB_B_SETPRM ; Start of settable parameters 
O25F 1446 SDEF CDB_B_CRC -BLKB 1 ; CRC generation mode 
0260 1447 SDEF CDB_B_CON -BLK 1 ; Controller mode 
0261 1448 SDEF CDB_B_EKO B 1 ; Echo mode (DEUNA Only 
ose8 1449 SDEF COB _B_ILP -BLKB 1 ; Internal Loopback nate (DELUA Only) 
00000004 bg63 1639 CDB_C_SETPRA = .-CDB_B_SETPRM ; Size of settable parameter List 
thes 1926 SDEF CDB_G_PHA -BLKW 3 ; User defined physical address 
0269 1453 SDEF CDB_G_HW -BLKW 3 ; Hardware physical address 
O26F 1454 SDEF CDB_G_PHYADR -BLKW 3 ; The current hardware address 
0275 1455 SDEF CDOB_B_UNTCNT -BLKB 1 ; Number of active units (UCBs) 
0276 1456 SDEF COB_B_MULTI x 1 : ree of entries in Multicast List 
0277 1457 SDEF CDB_B_MLTTBL -BLKB 1 umber of entries in MLTTBL 
0278 1458 SDEF CDB_G_MLTTBL -BLKW 3*MAX_C fu: Multicast address generation tbl 
02B4 1459 SDEF CDB_L_ASSPKT -BLKL 1 3 Address of ASSPKT routine to be used 
02B8 1460 SDEF CDB_B_AQUOTA -BLKB 1 ; Additional QUOTA available 
02B9 1461 SDEF CDB_B_MQUOTA -BLKB 1 ; Maximum extra QUOTA allowed 
O2BA 1006 
O2BA 146 
oseA 1464 
BA 1465 -VIELD CDB_STS,0,<- ; CDB status bit for CDB_B_STS 
O2BA 1466 <INTTED, ,M>,= ; Inited 
O2BA 1467 <RUN, ,M>,= : Device is running 
O2BA 1468 <FORK_PEND, ,M>,- ; Fork process is Bending ‘ 
QO2BA 1469 <FUNC, .M>,= z Command function is NOT pending 
028A 1470 <TIMER, .M>, ; Timer is active 
oH 1471 <RCBI, ,M>,- ; Receive buffer unavailable error 
02BA 1476 <ERR, ,M>,= ; Fatal error has occurred 
8 BA 147 <POWER, . A>, - ; Power Failure has occurred 
BA 1474 
O2BA 1475 
O2BA 1476 


SDEFEND COB ; End of DEUNA/DELUA CDB definitions 
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SDEFINI P2B 


-SEP-1984 00:3 
Ser =138 


4 00:1 


54 VAX/VMS Macro v04-00 
:23 (CDRIVER.SRCIJXEDRIVER.MAR; 1 


SDEF r28-L-8 write -BLKL 1 ; Pointer to start of data 

SDEF B-L_B -BLKL 1 3; Address of user's data buffer 
SDEF ete -BLKW 1 3; Size of P2 buffer 

SDEF 2 B-B_TYPE -BLKB 1 ; Type of ssreetre 

SDEF P2B_B_SPARE -BLKB 1 ; Spare byt 

SDEF P2B_ : LENGTH 3; Size of "55 buffer header 

SDEF P2B_T_DATA ; Start of data 


: SDEFEND P2B 

; Diagnostics buffer definition 

jf SDEFINI DIAG 

: Driver independent portion of diagnostics buffer 
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147 
147 
1480 
8 
1688 
1484 
He 
1486 
oe 14 
1488 
1933 
1490 
1491 
ieee 
149 
1494 
1495 
1496 
1497 
1498 
1499 $DEF § DIAG_L_DATA -BLKL 1 ; Pointer to start of data 
1500 S$DEF DIAG_L_BUFFER .BLKL 1 ; User buffer address 
1501 S$DEF DIAG_W_SIZE -BLKW 1 ; Size of structure 
O0A 1308 SDEF DIAG_B_TYPE -BLKB 1 ; Type of structure 
00B 15035 S$DEF DIAG_B_SPARE -BLK 1 ; Spare byte 
OOC 1504 $DEF DIAG_T_DATA ; Start of data 
00C 1505 $DEF  DIAG-Q"START BLKQ 1 ; Start time for Q10 
014 1506 SDEF DIAG_Q_FINISH .BLKQ 1 ; Finish time for Q10 
01C 1507 SDEF DIAG_L.ERRS -BLKL 1 ; Number of device errors 
OSe 1308 SDEF DIAG_L_EXTRA -BLKL 1 ; Number of longwords that follow 
024 1510 ; Driver dependent portion of diagnostics buffer 
0024 1511 ; 
0024 1318 $DEF § DIAG_L_DEPEND 
0024 1513 SDEF DIAGTONPCSR -BLKQ 1 ; Last port CSR contents 
Bee 1514 SDEF DIAG_Q_PCBB -BLKQ 1 ; Last port command block contents 
0034 1515 SDEF DIAG_W_ERR -BLKW 1 : be entry error summary 
0036 1516 S$DEF DIAG_G_HWA -BLKW 3 3; Hardware physical address 
Oaee 131) SDEF DIAG_W"ERR2 -BLKW 1 ; Extra ring entry error info 
BOE 1319 : The following is valid only on read (receive) Q10s 
Dee 1501 Sper DIAG_T_RDATA ; Start of receive data 
OSE 15 § SDEF DIAG_G_DEST -BLKW 3 ; Destination address 
044 1525 SDEF DIAG_G_SRC -BLKW 3 ; Source address 
004A 1524 SDEF DIAG_W_TYPE -BLKW 1 : Protocol type 
004C 1525 SDEF DIAG_C"LENGTH ; Start of data 
0000000A Qoee 1 § DIAG_C_EXTRA =" .-DIAG_L_DEPEND/4 
04C 1528 SDEFEND DIAG 
0000 1529 ; E gee: 
44 1 9 3 Receive buffer header definition 
38 1 § SDEFINI RHDR 
000 1534 S$DEF RHDR_L_DATA -BLKL 1 ; Pointer to start of data 
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Oe 1535 SDEF RHDOR_L_BUFFER ~BLKL 1 3 
6 1956 $0EF —RWDRTW~SIZE BLK : 
OOA 1 SDEF RHOR_B_TYPE -BLK 1 3 
00B 15 8 SDEF RHDR_B_SPARE -BLKB 1 : 
00C 1539 $DEF § RHDRIT"DATA : 
QO¢ 1540 SDEF —RHDR7G-DEST =. BLKW 3 : 
O12 1541 SDEF  RHDRTG"SRC “BLKW : 
O18 1942 SDEF —-RMDRTW_TYRE “BLKW : 
OTA 1543 $DEF —RHDR =CILENGTH : 
Q000000E 001A 1544 RHDR_C_DATA = 7-RHDR_T_DATA 
ee itt eae nas 
8000 1328 
$000 1268 : Shareabl tocol type data struct 
° areadle protoco e data structure 
0000 1850 : . 24 
0000 1551 SDEF INI SHR GLOBAL 
0000 1952 Sper SHR_L_arL “BLKL. ; 
0004 1553 S$DEF SHR_L_QBL ~BLKL 1 $ 
0008 1554 $DEF  SHRTW7SIZE "BLKW : 
OO0OA 1555 SDEF § SHRTB-TYPE 7BLKB : 
000B 1336 SDEF SHR_B_STS BLK 1 : 
000C 1557 $DEF  SHRTL~PID “BLKL 1 : 
0010 1558 $SDEF § SHRTWTCHAN "BLKW oT : 
O12 1599 SDEF — SHR-GDEST “BLKW 3 : 
0018 1560 $DEF § SHRTQ"QUEUE ; 
OO18 1961 SDEF —SHRTG"RCVSG = BLK : 
0020 136 SDEF SHR Q=RCVREG *BLKQ 1 ; 
00000002 0028 1563 SHR C_QUEUES = ee Q -AUELES>/8 : 
0028 1564 $DEF ~ SHR W_QUOTA .BLKW F 
002A 1565 $DEF § SHRTC“LENGTH : 
002A 1566 
002A 1567 _VIEU2 SHR_STS,0,<- : 
002A 1568 <INITED, .M>, - : 
002A 1569 
002A 1570 
002A 1571 SDEFEND SHR 
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User buffer address 
Size of structure 


eocteatias seérens 
Source address 
Protocol type 
Start of data 


Forward Link pointer 
Backward Link pointer 
7.20 of structure 
Type of structure 
S stat us 
User's PID 
User's channel 
Destination address 
Start of queues 
Received messages waiting for IRPs 
Receive IRPs waiting for messages 
Number of queues 
User's shared quota 
Size of data structure 


SHR status bits _ 
Protocol type is inited 
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000 ! 6 -SBTTL DEUNA/DELUA device driver diagnostic function codes 
000 1575 SEQuU XESC_DG_LOADMEM 1 ; Write DEUNA/DELUA memory 
00 1 4 $EQU XESC_DG_READMEM ¢ ; Read DEUNA/DELUA memory 
000 13! $EQU XESC_DG_UPADDR ; Load and start u-proc address 
000 1 4 $EQU XESC_OG_WRITEID 4 3; Write SYSTEM ID parameters 
0000 137 $EQU XESC_DG_READID 5 ; Read SYSTEM ID parameters 
0000 1 0 $EQU XESC_DG_STOP 6 ; Stop transmit and receive process 
44 1 1 $EQU XESC_DG_STEST 7 ; Perform a self test 
000 1 8 $EQU XESC_DG_READST 8 ; Read port status 
0000 1583 SEQU XESC_DG_ESTEST 9 ; Perform an extended self test (DELUA) 
0000 1584 S$EQu XESC_DG_HALT 10 ; Halt port (DELUA Only) 
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i 1 § -SBTTL Standard tables 
00 1588 ; Driver prologue table 
3p 1589 ; 
00 1590 DPTAB = ; 
000 1591 END=XE END. : END OF DRIVER 
0000 139¢ ADAPTER=UB ADAPTER TYPE 
00 159 Uees1ze=ucas. LXE _LENGTH,- = ; SIZE OF UCB 
00 1394 NAME=XEDRIVER : DRIVER NAME 
003 1396 DPT_STORE INIT ; START OF CONTROLLER INIT 
0038 159 DPT-STORE UCB,UCBSB_FIPL.B,IPL$_XE_FIPL ; FORK IPL 
003c 1598 DPT“STORE UCB.UCBS$B_DIPL,B,IPLS$_XE_DIPL ; DEVICE FPL 
0040 1599 DPT“STORE ORB,ORB$B_FLAGS .8,- : Protection block flags 
0040 1600 20RBSM_PROT_16> ; SOGW protection word 
0044 1601 DPT_STORE ORB, ORBSW_PROT,@,0 : defaul t Protection 
0049 1608 DPT“STORE ORB.ORBSL_OWNER,L,O : yet 
0050 160 DPT"STORE UCB.UCBSL DEVCHAR-L = : DEVICE CHARACTERISTICS 
0050 1604 <DEVSM_SHR! = 
0050 1605 DEVSM-AVL i= 
0050 1606 DEVSM~NETi- 
0050 1607 DEVS$M~IDVi- 
0050 1608 DEV$M_~ODV> 
0057 1609 
0057 1610 DPT_STORE UCB,UCBSB =pevel ses ~B,DC$_SCOM ; Device , hey 
0058 1611 DPT_STORE UCB, UCB$B_DEVTYPE,.B,DT$_BEUNA ; Device t AS 
005F 161@ DPT“STORE UCB.UCBS$W-DEVBUFSIZ.W,572 Defau uf fer size 
0064 161 DPT“STORE UCB,UCBSW_ STS. W, ett ONLINE !UCBSM vEMPLA TE> 
0069 1614 DPT_STORE UCB,UCB$G_XE_P HA,L,-1 ; No default physical address 
9079 1615 DPT" STORE NEB. UCBS$G_XE~ “PHASS cW,-1 : wnt 
Bone 1el! : Store defaults for all parameters 
0075 1619 DPT_STORE UCB,UCBSW_XE_8SZ,W,1500 : Default device buffer size 
007A 1620 DPT_STORE CB. CB$B-XE~BFN.B.1 Defautt user buffer number 
OO7E 1621 DPT_STORE UCB,UCBS$W_XE_HBQ,W,INIT_C QuoTA ; Mar ounre Buffer Quota 
0083 16 é DPT“STORE UCB.UCBSB_XE-PRO.B.NMASC_CINPR_NI ; 'NI'' is the protocol mode 
0087 16 DPT“STORE UCB.UCBS$B_XE_PRM.B.NMASC_STATE_OFF ; Promiscuous mode is OFF 
008B 1624 DPT_STORE UCB,UCBS$B_XE_MLT,B,NMASC_STATE_OFF : ALL multicasts is OFF 
OO8F 1625 DPT“STORE UCB,UCBSB_XE_DCH.B.NMASC_STATE_OFF ; Data chaining is OFF 
093 1626 DPT“STORE UCB,UCBSB_XE_CRC.B,NMAS$C_STATE_ON ; "CRC generation is ON 
0097 1627 DPT“STORE UCB.UCBSB_XE-~PAD.B.NMASC_STATE_ON ; Padding is ON 
009B 1628 DPT-STORE UCB,UCB$B_XE_CON,B,NMASC_LINCN_NOR : Controler mode is NORMAL 
009F 1629 DPT“STORE UCB,UCBSB_XE_EKO.B,NMASC_STATE OFF ; No ECHO is default (DEUNA) 
OAS 1630 DPT“STORE UCB,.UCBSB_XE-ACC,B.NMASC_ACC_ERC Ructuates tds 48 detent’ 
OOA7 163 DPT“STORE UCB,.UCBSB_XE~ILP.B,NMASC_STATE_O } = beneenah Loopback is OFF (DEL 
Song 16 : DPT_STORE REINIT 
QOAB 1o3% 
O0OAB 1635 DPT_STORE DDB,DDBSL_DDT,D,XESDDT ; DOT ADDRESS 
0080 1636 DPT“STORE CRB. BSC INTO eS D,DONE_INTR ; ergot intr; interr 
085 16 DPT" STORE RB.CRBSL-INTDVECEL_INTIIAL D°cON CONTR (LER INIT ADDRE 
OBA 1638 DPT" STORE BSL~INTD+VECSL “UNITING Db, UNIT I 
OBF 16 DPT“STORE CRB.CRBSL_INTD+VECSL_START.D.FFI_ INIT: ai IN 
0C4 1640 DPT“STORE END 
4 1641 
00000000 1642 .PSECT $$$115_DRIVER, LONG 


Standard tables 


4 1643 ; 
1644 ; 
: 1645 ; 
1228 3 
$ 1647 ; 
0 1648 
$ 1649 
1650 
000 1651 
0000 1926 
0000 165 
4 1654 
: 1655 
0 1656 
0038 1657 
0038 1658 
OO Re 1659 
00 1660 
iy 1661 
0038 1906 
0040 166 
0040 1664 
0040 1665 
0048 1998 
0054 166 
0060 1668 
006C 1669 
0078 1670 
0084 1671 
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LOCAL STORAGE 
Driver dispatch table 


DDTAB DEVNAM=XE,- 3; DRIVER DISPATCH TABLE 
S STARTIO,= ; Start 1/0 operation 

FUNC TB=XE FUNCTABLE,= 3; Function decision table address 

CANCEL,= : _— yeh 1/0 entry point 

=RE UMP , = 3 Regis ster quap entry point 
DIAGBF=<DIAG C_LENGTH>,-; Diagnostic buffer size 
CLONEDUCB=CLON ED_UCB,- ; Cloned UCB initialization 
ALTSTART=ALT_ START ; Alternate start I/0 entry point 


; Function decision table 
KE -FUNCTABLE 


UNCTAB , “yp : er ee 
PURI TEVBCR WRITELBLK,WRITEPBLK aiast LK ,READLBLK 
READPBLK, SENSEMODE, SENSECHAR, SETMODE , LE ECAR DIAGNOSE> 


NCTA Buffer og Functions 
<WRITEVBLK RI TELBLK WRITEPBLK nEADVBLE ADLBLK,- 
READPBLK SENSEM g SENSE CHAR SETM SEfCHAR. DIAGNOSE> 
FUNCTAB X sore re GRITEPD ere r+ TEVBLK> ; 


FUNCTAB RCV=FDT: + <WRITELBLK READPBLK,R READVB BLK> ; 


DE, SETCHAR> 
FUNCTAB SENSEMODE FDOT, <SENSEMODE , SENSECHAR> ; ; 
FUNCTAB DIAGNOSE_FDT,<DIAGNOSE> ; Diagnostic functions 
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PB-MOD-M_DRDC ; Disable Data Chaining 


Local driver storage SEP=-1984 2 MAR; 1 (13) 
0 1673 i -SBTTL Local driver storage 
: ; Initial setting for DEUNA/DELUA mode 

2800 BEF _MODE: : .WORD PB_MOD_M_ECT!= ; Enable the H4000 collision checks 


P2 Buffer verification tables 


SDEFINI PARAM 


4 16 
4 1674 
4 1675 
4 1676 
4 167 
bBe 1678 
086 167 
086 1680 
0086 1681 
Ooae 16 ¢ 
086 16 
Bae8 1088 
00 1685 
B008 1986 SDEF PRM_W_TYPE -BLKW 1 ; Parameter type 
0002 1688 -VIELD PRM_TYP,0,<- ; Parameter type field 
0002 1689 <COBE,12,M>,- ; Parameter type code 
0002 1690 <STRING,1,M>,= : Parameter is a string 
0002 1691 > 
000 1936 
44 1937 SDEF PRM_B_FLAG -BLKB 1 ; Parameter flags 
0003 1695 -VIELD PRM_FLG,0,<- ; Parameter thag bits 
0003 1696 <MIN,1,M>,- : Parameter minimum value present 
0003 1697 <MAX,1,M>,=- ; Parameter maximum value present 
0003 1698 <INVALID,1,M>,- ; Parameter invalid value is present 
0003 1699 <CDB,1,M>,- : Offset is in CDB data base 
0003 1700 <CHECK,1,M>,=- 3 Check values with current 
0003 1701 > 
ORoe 1706 
ait AS SDEF PRM_W_OFF -BLKW 1 ; Parameter offset in structure 
0005 1705 -VIELD PRM_OFF,0,<- ; Offset word fields 
0005 1706 <VACUE ,10.M>,- 3; Offset value 
0005 1707 <WIDTH,6,M>,- ; Size of field in structure 
0005 1708 > 
0005 1709 
0005 1710 SDEFEND PARAM 
0086 1711 
0086 vie : - 
0086 1713 ; Define Line parameters 
0086 1714 ; : . 
00000000 0086 1715 LINE_PRM_BUFSIZ=0 ; Line parameter buffer size 
Bone at LINE~PARAM_WO: ; “Write-Only” Line parameters 
0086 1718 PARAM NMAS$C_PCLI_HBQ,- ; Hardware Buffer Quota 
0086 1719 OF FSET=UCBSW_XE_HBQ,- 
0086 1769 WIDTH=, MAX=16384 ,- 
086 1 1 INVALID=UCBSM_XE_INITED 
+H Vy L'NE_PARAM: 3; Start of Line parameters 
O8F 1725 PARAM NMASC_PCLI_ACC,- 3; Access mode for protocol type 
O8F 17 6 OF FSET=UCBSB_XE_ACC,- 
O8F 17 WIDTH=B,- 
O8F 17 : MIN=NMA$C_ACC_SHR,- 
O8F 17 MAX=NMASC~ACC~EXC 


| MEDRIVER = VAX/VM NA/DELUA Driver 
tae ti S$ DEUNA/DELUA Drive 


Local driver storage 


PARAM 


PARAM 


— + — —» + — = 990000000000 
_ 
~N 

AAAI AIA AIAN 
—O> 


BOO9 C9 C909 0909 IID DDS DS DS DDS TTT EB BS BS 


pele le le lolol elolelololololo) 


polelolelelelojeleleleleleolo) 
hi barbarherahertoar tb > be) 


PARAM 


PARAM 


PARAM 


PARAM 


PARAM 


PARAM 


PARAM 


PARAM 


oo 

ow 

mm 
a ee a a a a a a a le a a ll a el ee ee ee a ee ee a ed ad 
Sa Din Dit tna. itn, en in i in Bite Bite in iin Sit in Bin, PRS i Bi i Di i ti te De i fi te Se Bn Bin Bi Bn Bn Bin Bn Bn 
AE AN 9 OONAU EWI (OOO NAM EWN OOD NAUSEA 0 OD NOAU EWN OOONOULS Wry 


COOooooooooooooo 
OOooooooooooooo 


16=SEP=1984 

Beep 198e Ob 
NMASC_PCLI_PRO 
OF FSET=UCBSB_XE_PRO,- 
WIDTH=B,- 
MIN=NMASC_LINPR_POI,- 
MAX=NMASC_LINPR-NI 
NMASC_PCLI_BUS,- 
OF F SET=UCBSW_DEVBUFSIZ,- 
WIDTH=W,- 
MIN=MIN.PKT_SIZE,=- 
MAX=MAX~PKT-SIZE.- 
INVALID=UCBSM_XE_INITED 


BSM_XE_INITED 
NMASC_PCLI_PRM, = 
OF F SET=UCBSB_XE_PRM,- 
WIDTH=B,- 
MAX=NMASC_STATE_OFF ,~ 
INVALID=UCBSM_XE_INITED 


NMASC_PCLI_MLT,= 
OFFSET=UCBSB_XE_MLT.~ 


=6,- 
MAX=NMASC_STATE_O#¥ ,- 
INVALID=UCBSM_XE_INITED 


NMASC_PCLI_PAD,- 
OF FSET=UCBSB_XE_PAD,- 


WIDTH=B,- 
MAX=NMASC_STATE_OFF 


NMASC_PCLI_DCH,- 
OF F SET-UCBSB_XE_DCH,~ 


IDTH=B,- 
MAX=NMASC_STATE_OFF,- 
INVALID=UCBSM_XE_INITED 


NMASC_PCLI_CRC,= 
OFF SET=UCBSB_XE_CRC,~ 


WIDTH=B,- 
MAX=NMASC_STATE_OFF 
NMASC_PCLI_CON,- 


OF FSET=UCBSB_XE_CON,- 
WIDTH=B,- 


3 
1 
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Protocol selection mode 
% Accept either point or NI 
Buffer size 


User buffer LIMITS 


; Buffer number 


‘ 


Physical NI address 


Promiscuous mode state 


3; Accept all multicast addresses 


; PAD on transmits 


; Data chain on receives 


; Generate CRC on transmits 


; Controller mode 
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Local driver storage “SEP-19 DRIVER.SRCIJXEDRIVER.MAR; 1 (13) 
7 MAX=NMASC_LINCN_LOO,- 
INVALID=UCBSM_XE_INITED 
PARAM NMASC_PCLI_PTY,=- ; Protocol type 


OF FSET=UCBSW_XE_PROTYP,- 
WIDTH=W,- 
INVALID=UCBSM_XE_INITED 


PARAM WNMASC_PCLI_MCA,- 3; Multicast address List 
OF FSET=UCBSG_XE_MULTI,- 
STRING=YES,- 
SIZE=2+<6*MAX_C_MLT> ; Maximum size of List 


PARAM NMASC_PCLI_EKO,- 
OF F SET=UCBSB_XE_EKO,- 


WIDTH=B,- 
MAX=NMASC_STATE_OFF 


PARAM WNMAS$C_PCLI_BSZ,- ; Device buffer size 
OFF SET-UCBSW_XE_BSZ,~ 


MIN=MIN, PKT_SIZE,- 
MAX=MAX~PKT~SIZE 


INVAL ID=UCBSM_XE_INITED 


; Echo transmitted messages (DEUNA Only) 


PARAM NMASC_PCLI_DES,- ; Destination Address for shared 
OFFSET=UCBSG_XE_DES.- ; Protocol Type 
STRING=YES,- 
SIZE=<2+6> 

PARAM NMAS$C_PCLI_ILP,- 3; Internal Loopback mode (DELUA Only) 


OF FSET=UCB$B_XE_ILP,- 
WIDTH=B,- 
MAX=NMA$C_STAT 
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INVALTD=UCBSM_ XE INE TED 
PARAM ; End of table 
CIRCUIT_PARAM: ; Start of circuit parameter table 
PARAM NMA MST,=- ; Maintenance state 


$C_PCCI_MST, 
OF FSET=UCBSB_XE_MST,- 


WIDTH=B,- 
MIN=NMA$C_STATE_ON,- 
MAX=NMAS$C_ STATE _OFF 


PARAM 3; End of table 


: Line/circuit counters 
CTRTAB: ; Start of counters 
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COUNTER ZER, 16, 2 ; Seconds since last zeroed 
COUNTER DBR, 35° 4 ; Packets received p 
COUNTER MBL, 32, 8 ; Multicast packets received 
COUNTER RFL, 18. 12, MAP ; Packets received in error 
COUNTER BRC, 32, 16 ; Bytes received 
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Local driver storage -SEP-1984 00:19:23 (CDRIVER.SRCJXEDRIVER.MAR;1 (13). 
13D 1844 COUNTER MBY, 32, 20 ; Multicast bytes received 
141 1845 COUNTER OVR, 16, 24 3; Receives lost - Internal buffer error 
145 1 $$ COUNTER LBE, 16, 3; Receives lost - Local buffer error 
149 184 COUNTER DBS, ° 3; Packets transmitted 
014D 1848 COUNTER MBS, 32, ; Multicast packets transmitted 
0151 1849 COUNTER BSM, 7 6 3; Packets transmitted - several errors 
0155 1850 COUNTER BS1, ms ; Packets transmitted - 1 error 
0159 1851 COUNTER BID, » 44 ; Packets transmitted - deferred 
0150 1 26 COUNTER BSN, » 48 ; Bytes transmitted 
0161 185 COUNTER MSN, 32, 52 ; Multicast bytes transmitted 
0165 1854 COUNTER SFL. 16, 56, MAP ; Transmit packets aborted — 
8198 132? COUNTER COC, 16, 60 : Transmit collision check failure 
016D 1857 LINE_CTR: 
016D 1858 DRVRCTR UFD, 16, UFDCTR ; Unrecognized frame destination 
0171 1859 DRVRCTR SBU, 16, SBUCTR ; System buffer unavailable 
0128 + 44 DRVRCTR UBU, 16, UBUCTR ; User buffer unavailable 
0179 1008 CIRC_CTR: 
0179 186 DRVRCTR DBS, 32, SBLCTR, CIRC ; Blocks sent : 
017D 1864 DRVRCTR BSN, 32, SBYCTR, CIRC ; Bytes sent 
0181 1865 DRVRCTR BR, 35° RBLCTR, CIRC ; Blocks received 
0185 1866 DRVRCTR BRC, . RBYCTR, CIRC ; Bytes received 
0189 1867 DRVRCTR MNE, 16, MNECTR, CIRC ; Multicast address not enabled 
018D 1868 DRVRCTR UBU, 16, UBUCTR, CIRC ; User buffer unavailable 
0191 1869 
0191 1870 ; : 
B13, + 18 ; MOP read counters return table (in order of COUNTERS returned) 
0191 1873 MOPCTRTAB: ; Start of MOP counters 
0191 1874 MOPCTR 16, 2 3; Seconds since last zeroed 
0193 1875 MOPCTR 32, 16 ; Bytes received 
0195 1376 MOPCTR 32, 48 ; Bytes transmitted 
0197 187 MOPCTR 32, 4 ; Packets received 
0199 1878 MOPCTR 32, 28 ; Packets transmitted | 
0198 1879 MOPCTR 32, 5° ; Multicast bytes received 
019D 1880 MOPCTR 32, 3 Multicast packets received 
O19F 1881 MOPCTR 35° 44 ; Packets transmitted - deferred 
O1A1 1336 MOPCTR 2, 40 ; Packets transmitted - 1 error 
01A3 188 MOPCTR 16, 36 3(32)Packets transmitted - several errors 
O1A5 1884 MOPCTR 16, 58, MAP ; Transmit packets aborted 
O1A7 1885 MOPCTR 16, 14, MAP ; Packets received in error 
O1A9 1 6 33 MOPCTR 16, Xx ; Unrecognized frame destination 
p12 iss $3 MOPCTR 16, $¢ : Receives lost - Internal buffer error 
1A9 1888 ;; MOPCTR 16, 26 ; Receives lost - Local buffer error 
O1A9 HH 3 MOPCTR 16, XX ; User buffer unavailabdle ‘ 
3142 1890 ;;88& MOPCTR 16, 60 : Transmit collision check failure 
gag 183 MOPCTR ; End of table 
O1AB ' 38 ; Calculate total size of MOP counter return data buffer 
00000033 0O1AB 1898 MOP_CTR_SIZE = MOP_CTR_SIZE + 1 + 2 + 8 ; Size of counters + MOP header 
00000041 0148 1896 MOPTCTRISIZE = MOPTCTRSIZE + XBUF_C_HEADER ; Size of buffer + NI header 
1AB 1898 3 
1AB 1899 ; BAD PARAMETER RETURN TABLE 
1AB 1900 ; 
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i< 139) 3; Note that the table is in the REVERSE order from that of the UCB. 
1AB 1308 ASSUME UCBSB_XE_CRC EQ UCBSB_XE_CDBPRM 
1AB Ihe ASSUME UCBSB_XE_CON EQ UCBSB_XE_CRC+ 
1AB 1905 ASSUME UCBSB_XE_EKO EQ UCBS$B_XE_CON+1 
1AB 1206 ASSUME UCBSB_XE_ILP EQ UCBSB_XE_EKO+1 
1AB 1907 BAD_PARAM_TBL: 
0B17 O1AB 1908 -Q@ORD NMASC_PCLI_ILP 
OB1F O1AD 1909 «WORD NMASC_PCLI_EKO 
0456 he 1910 -WORD NMASC_PCLI_CON 
081¢ 181 1911 “WORD NMASCPCLI-CRC 
$183 1318 ASSUME UCB$W_XE_BSZ EQ UCBS$B_XE_SHRPRM 
o183 1914 ASSUME UCBS$B_XE_PRO EQ UCBSW_XE_BSZ+2 
01B3 1915 ASSUME UCB$B_XE_PAD EQ UCB$B_XE_PRO+1 
01B3 1916 ASSUME UCBS$B_XE_DCH EQ UCBSB_XE_PAD+1 
0183 1917 ASSUME UCB$B_XE"PRM EQ UCBS$B_XE_DCH+1 
01B3 1918 ASSUME UCBSB_XE_MLT EQ UCBS$B_XE_PRM+1 
01B3 1919 ASSUME UCBS$B-XE-CDBPRM EQ UCBSB_XE_MLT+1 
0B19 o183 1920 -WORD NMASC-PCCI_MLT 
0B18 016 135! «WORD NMASC_PCLI_PRM 
0818 0187 19 § «WORD NMASC_PCLI_DCH 
OB1A 0189 192 “WORD NMASC~PCLI~PAD 
0458 O1BB 1924 «WORD NMASC_PCLI_PRO 
0B20 O18D 1925 : NMASC_PCLI_BSZ : 4 
0B20 gier \° $ «WORD NMASC_PCLI_BSZ 3; This parameter is a word (not byte) 
01C1 1928 ; CRC-32 generation table 
01C1 136 : 
01C1 1930 CRCTABLE: 
00000000 01C1 1931 -LONG 0 
1DB71064 01C5 138 -LONG ‘%*X1DB71064 
ait 01C9 193 . LONG ouseee ence 
6D930AC O1CD 1934 -LONG “*X26D930AC 
604190 0101 1935 -LONG *X76DC4190 
6B6B51F4 0105 1338 -LONG “*X6B6B51F4 
4D0B $138 0109 1937 LONG anebRes | 28 
5005713C 01DD 1938 eLONG  *x5005713C 
Fetgae Bie! 1939 -LONG “*XEDB88320 
FOOF 9344 1E5 1940 -LONG “XFOOF9344 
DEDGAsES QO1E9 1941 -LONG “XD6D6A35E8 
CB61B38C O1ED 13e6 -LONG ‘“*XCB61B38C 
9B64C2B0 O1F1 194 -LONG “*X9B64C280 
86D3D bs BiFe 1944 -LONG “*X86D3D be 
AOQOAE 278 1F9 1945 LONG *XAOQOAE 278 
BDBDF21C O1FD 1946 -LONG “XBDBDF21C 
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| 01 1968 ~SBTTL CONTROL_INIT = INITIALIZE DEUNA/DELUA DEVICE 
| a 1990 : CONTROL_INIT = INITIALIZE DEUNA/DELUA DEVICE | 
| 6 a 1326 3 Functional description: 
4 1954 : This routine is entered when driver is loaded, system is booted, or 
| 8 4 1322 ; during powerfail recovery. 
| 001 1987 : Inputs: | 

0201 1989 : R4 = Address of the device CSR 

0201 1960 ; R5 = Address of the device IDB 

0201 1961 ; = Address of the device DDB 

0201 1308 3 = Address of the device CRB 

0201 1963 ; 

0201 1964 ; IPL = FIPL 

0201 1965 ; 

0201 1966 ; Outputs: 

0201 1967 ; 

0201 1968 ; R4,R5,R8 are preserved 

0201 1969 ;-- 

0201 1970 : 

0201 1971 CONTROL_INIT:: : Initialize the DEUNA/DELUA 

0201 1972 RSB ; Return to caller 
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; -SBTTL CLONED_UCB = INITIALIZE THE CLONED UCB 
; CLONED_UCB = INITIALIZE THE CLONED UCB 
Functional description: 


This routine is called by the SASSIGN system service to allow the driver 
to initialize the cloned UCB. The driver is called with process context. 


Inputs: 

RO = SS$_NORMAL 
R2 = UCB address of cloned UCB 
R35 = DDT address 
R4 = PCB address 
RS = UCB address of template UCB 
IPL = ASTDEL 

; Outputs: 


RO = SS$_NORMAL 
R5 = UCB address of cloned UCB 
ALL other registers and IPL are preserved. 


CLONED_UCB:: ; Cloned UCB initialization 
MOVL R2,R5 ; Copy UCB addr 


55 52 ess ; 
; Continue in unit_initialization 
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: «SBTTL UNIT_INIT = INITIALIZE THE DEUNA/DELUA UNIT | 
UNIT_INIT = INITIALIZE THE DEUNA/DELUA UNIT 
Functional description: 
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This routine is called at system startup, during driver loading and 

during powerfail recovery to initialize the DEUNA/DELUA unit and its UCB. 
The UCB is initialized and if power has failed, the device is forced 
to shutdwon. | 
Inputs: 


RG = CSR address 
RS = UCB address 


IPL = FIPL 
Outputs: 


oo 


None. 
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PUSHR #*M<RO,R1,R2,R3,R4,R ave al 


NIT_INIT:: >; UMitialize a DEUNA/DELUA unit | 
+ regs | 
BBS #UCBSV POWER. UCASW_STS(RS),20$ ; Br 1 powerfail | 


3F 0S s«wBB 
19 64 AS 05 €0 
Initialize UCB queue Listheads, and the pointer (within the NI device 


dependent UCB extension, UCBSL_NI_MLTPTR) to the multicast address table for 
this protocol type. 
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00E9 ¢5 o9E MOVAB UCBS$G_XE_MULTI(R5),- : Initialize the pointer to this 
0094 C5 UCBSL-NI-MLTPTR(RSS ; protocol’s multicast address table 
| 
50 04 00 MOVL  #UCBSC_XE_ QUEUES .RO ; Get number of queue Listheads in UCB 
51 0096 CS 9E MOVAB UCB$Q_RE GUEVES(R5).R1 ; Get address of queue Listheads 
81 61 ODE 10$ MOVAL R1),TRIT+ ; Set forward Link pointer 
81 FC Al 90 MOVL =-4(R{),(R1)+ : Set backward Link pointer 
F6 50 =F S SOBGTR RO,10$ ; Loop if more Listheads 
> If the template UCB, UCBO is being initialized, query the device ID field of 
$8 3; PCSR1 and set the device type field of the UCB according to the type of NI 
49 ; controller. The default NI controller is the DEUNA. The device type field 
50 ; may gnly be checked if the DEUNA/DELUA has passed the self-test on power-up 
51 ; and is in the proper state. If the device is not in the proper state then 
38 3; mark UCBO as being OFFLINE. 
4° | 
54 AS B5 55 208: TSTW y BSW_UNIT(RS) 3 Is this unit 0? 
37. —s «12 2$ BNEQ $ ; Branch if not and clear template bit 
04 «€1 5 BBC #UCBSV_ONLINE,- ; Do not change the device type if UCBO 
47 64 AS 28 UCBSW_STS(R5) ,60$ ; is offline 
51 02 A4 B0 60 MOVW PCSR1(R4),R1 ; Copy the contents of PCSR1 
| 
| 
\ 
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Vv at UNIT_LINIT = INITIALIZE THE DEUNA/DELUA U g-SE5- 19 7 88 6: 34 YORIVER. SRCJXEDRIVER.MAR; 1 . (10) ye 
6° EF 61 EXTZV #XE_PCSR1_V_STATE,- 3 Extract and zero extend the port state 
50.0 («51 4 66 #XE-PCSR1-S"STATE,R1,RO ; field of PCSR1 
9? SDISPATCH RO, TYPE=B,- ; Dispatch based upon the port state | 
| 65 <XE_STAT_V_RESET 0$>,-; RESET 

66 <XE-STAT-V~PRIMLD 35$>,-; PRIMARY LOAD | 
6 <XE_STAT_V_READY 5$>,°; READY 
68 <XE-STAT_V~RUN 5$>,°; RUN 
8 <XE-STAT_V_UHALT + Sa UNIBUS HALTED 
070 <XE_STAT_V_NIHALT $>,-; NI HALT 
071 <XE_STAT_V_NIUHALT 30$>,-; NI AND UNIBUS HALTED 
0 76 . <XETSTATIV-PHALT 30$>,-; PORT HALTED (DELUA ONLY) 
8 4E 2074 
4E 2075 308: 
046 EF 024 376 $: EXTZV #XE_PCSR1_V_DEVID,- ; Extract and zero extend the device ID 
5o.6CU StS 025 07 XE_PCSR1_S_DEVID,R1,R0 ; field of PCSR1 
0 : fh SDISPATCH RO, TYPE=B,- 3 Dis patch based upon the device ID 
6 5 080 <XE_DEVID_V_DEUNA 60$>,-; DEUNA = no change to the type field 
0 2 +4! : <XE_DEVID_V_DELUA 40$>,-; DELUA = change the type field | 
19 90 58 $B 40$: MOVB #D0T$_DELUA,- 3; Change the type field to DT$_DELUA 
41 AS 025D 2084 uresé _DEVTY YPE(RS) 
15 11 O25F 2085 BRB 80S ; Branch so.template bit is left on 
$561 5087 | 
0261 2088 ; We must find the address of unit 0, so we can check if the DEUNA/DELUA is 
ose, O89 ; ONLINE. If the DEUNA/DELUA is OFFLINE, then we mark each UCB as being OFFLINE. 
61 2091 © 
0082 (5) =: B4 0261 O38 50$: CLRW UCBSW_ERRCNT(R5) ; Only unit #0 aey list errors 
50 28A5 DO 0265 209 MOVL UCBS$L~DDB(R5) .RO : Get address of EUNA/DELUA DDB 
50 04 A0 DO 0269 2094 MOVL DOB$L-UCB(RO) ,RO ; Get address of UNIT 0 UCB 
EO 0260 2095 8B #UCBST_ONLINE,=- ; Br if SEUNA/DELUA is ONLINE 
04 64 AO 8 6F 2096 Po arcs $(RO) ,60$ ; 
AA 72 2097 BICW #UCBSF_ONLINE,- ; Else, mark new unit as OFFLINE 
64 AS 8 a 443 UCBSU,. aries 3 
8 76 2100 : Now check for Rmust now b If power had folles we wit ASSUME 
76 13) 3; «the gabe aust now be marked ONLINE. This will not 
0276 21 ; 3 work very ve f originally the DE ONA/DECUA was offline 
1 2 3; because it = cealeeied at the wrong CSR (for example). 
04 64 A5 05 €1 76 19s 60$: BC cucesy poe UCBSW_ STS(R5) 65$ ; Br if NOT powerfail recovery 
10 A8 0278 21 é BISW  #UCBSM INE, - > Else, mark UNIT as ONLINE 
64 A 7D 21 UCBSW sistr i} 
4 9A 7F 2108 65$: MOVZBL : *MAR_C : Get size of multicast list in words 
51 OOE9 C 9E $ 109 MOVAB CBSG "YE “ULF SCRS), R1 3; Get address of multicast List 
4 B4 19 70$: CLRW veese : Init multicast table | 
FB 50 «FS ? a SOBGTR RO, +s 3; Loop if more 
54 0180 ¢5 0D C 118 MOVL ycest. XE_CDB(RS) ,R4 ; Get COB address 
1 1 114 BNEQ : Br if present 
200 3 93 2115 BSBW Alot COB $ gi 8¢ try to allocate a CDB 
15 5 E 38 118 BLBC ; Br if no error 
9 11 
j 


LC 


| } 
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99 2118; | 
99 118 ; If a power failure has occured, set the appropriate bit within the CDB 
4 ; Y ; and schedule a fork process to handle the fatal error. | 
99 2122 ° 

10 64 AS 5 + 99 1 g 80$: BBC #UCBSV_POWER ueese ‘5 S$(R5),90$ ; Br if not powerfail 
=~ C4 6° F 8 9E 124 BISB2 a STs on marist R. CBB _B.s STS(R4) 3; Set the CDB power failure bit 

5 00000100 8F 8 AG 2125 MOVL cence : Indicate a fatal error 

1656 3 } § BSBW sch RED. ; Schedule a fork process 

3 BA A 1 8 90$ POPR rece, R1,R2,R3,R4,R5> Restore fo > 
64 45 20 AA 0280 2° BICW  #UCBSM/POWER.UCBSW.STS(R Rr); ; Clear the powerfail flag 
05 B4 2)50 RSB 3; Done 
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-SBTTL FFI_LINIT = FFI INTERFACE INITIALIZATION ROUTINE 
FFILINIT = FFI INTERFACE INITIALIZATION ROUTINE 
Functional description: 
This routine initializes the FFI inser toce. Currently the UCB must 
have been initialized prior to Bye Bea s routine, in the future 


this routine ~~ have to initialize UCB and DEUNA/DELUA. Therefore, 
there may be a fork involved in the call to this routine. 


oe 
ze 
ns 


Inputs: 
4 - barons of ——— descriptor for parameter buffer 
ock address 
IPL = SYNCH 
Outputs: 


RO = Status of request 
ALL other registers are preserved. 


Bete Se Ge Se Se Ge Ge Ge Se Ge Ge Ge Se Se Ge Se Sse Se Se Se Ge Se 
; + 


ASSUME IPLS$_SYNCH EQ IPL$_XE_FIPL 


FFI_INIT:: 
PUSHR #*M<R1,R2,R3,R4,R5> 3; Save registers 
CLRL RO 3; Assume ore 
MOVL FF ISL _DL_UCB(R4) ,R5 ; Get UCB addres 
BBC #uces? RUN, = ; Br if device oat ready 
UCBS$W ABEVSTS(AS), 908 
: MOVAB USAT A STA “bag ; Return address of XMIT routine 
0178 ¢cS) 3 «6564~—si«éiO OVL R4, UCBs XE REPL CRS) ; Save FFI address 
50 GA MOVZBL ; Return success 


90$: POPR #°A<R1,R2,R3,R4,R5> : Restore registers 
; Return to caller 
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a -SBTTL XMT_FDT = TRANSMIT 1/0 OPERATION FDT ROUTINE 
XMT_FDT = TRANSMIT 1/0 OPERATION FDT ROUTINE 
Functional description: 


—O 
=m 

oa 
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j 


This routine sets up the internal function code for transmit and 
transfers control to the exec buffered 1/0 write FDT routine. 


The Q10 parameters for WRITES are: 
4 . Address of the data buffer 


Size of the data buffer 
P5 = Address of buffer containing the destination address 


Inputs: 

= IRP address 

= PCB address 
RS = UCB address 

= CCB address 

= FUNCTION CODE 

IPL = ASTDEL 

Outputs: 


RO-R2,R8,R9 are destroyed. 
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ADDL o3ck Point to protocol type 
IFNORD #2,(R1),ABORTIO 3; Check access to buffer 
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ABORTIO_BR: ; Long branch to ABORTIO 
OOAD 31 BRW ABORTIO ; Abort the 1/0 request 
XMT_FDT:: ; Transmit FDT routine 
40 a5 7C CLRQ IRP$Q_STATION(R3) ; Zero the destination address 
OOCA C5 = B0 MOVW UCBSW_XE_PROTYP(R5),- ; Assume we are a non-promiscuous user 
3A AS IRP$W_XE_PROTYP(R3) : 
51 10 AC 00 0 MOVL PS(APY,RT : Get address of destination address 
05 i2 y BNEQ 1$ ; Br if given 
11 ; If the user is in shared mode, then he does not have to supply a destination 
E \¢ 3; address with each transmit operation. The destination address will be gotten 
: 1? : from the SHR data structure. 
03 €0 O2E im BBS #UCBSV_XE_ SHARE ,- ; Br if shared user 
iF 68 A5 E 18 UCBSW-DEVSTS(RS),28 =; 
0 OC 9A E 17 1$: MOVZBL S*#SS$_ACCVIO,R ; Assume access violation 
E 18 IFNORD #6,(R1J,ABORTIO BR : Check access to buffer 
40 A361 «=O —OeF 1 MOVL  (R{),IRP$Q_STATION(R3) : Save destination address 
3°04 Al B0 7 9 MOVW 4(R1S,IRPSO_STATION+4(R3S ; aint 
FC § ASSUME WNMASC_STATE_ON EQ 0 
4: ? ASSUME NMASC_STATE_OFF EQ 1 
re f 2s: BLBS UCB$B_XE_PRM(R5) ,3$ ; Br if user is not promiscuous 
4 
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we 


MOVW 
MOVZBL 
MOVL 
MOVZWL 
BEQL 


ASSUME 
ASSUME 
CLRQ 
ASSUME 
MOV 
ASSUME 
ASSUME 
MOVZBW 
MOVL 


ASSUME 
MOV 


PR 
JMP 
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(R1), IRP$W_XE_PROTYP(R3) 
$*#S5$_BADPARAM,RO ; 
BICAP) >RB 
P2(AP)_R 
ABORT 
RB,RO 
G*EXE 


SWRITECHK 


mbm e Ge Ge Ge Ge Ge Se 


#CXBSC_HEADERSXE_C_CRCAR 
#°M<RS-RG RSD : 
G*EXESBUFFRQUOTA 
G*EXESALLOCBUF 
RO, 10$ 


L EQ 0 
L EQ CXBSL_FL+4 


(SP) ,R2 ; 


; Retrieve address of IRP 
; Get JIB address 
; Adjust buffered I/0 quota 


; Save CXB address in IRP 
; Save pointer to CXB 


; Get protocol type from user P5 buf. 

Assume bad parameters 

Get starting address of user buffer 
Get genet of user buffer 
Br if zero length buffer 

Retrieve buffer parameters 

Check secoetorh tir of user buffer 
(No return on NO ACCESS) 
Returns IRPSW_BCNT 

; Calculate length of buffer needed 
ave registers 

Check if process has sufficient quota 
Br if quota check failure 

Allocate CXB buffer for output 

If LBC allocation failure 


Set number of bytes spgrece to quota 


Clear Link cells 


Set size of structure 


Set structure type 
Get back CXB address 


CXBSC_HEADER EQ CXBST_T_DATA+XE_C_HEADER 
#CXBST_T_DATA,CXB$W_BOFF(R2) ; Setup offset to start of data 


CXBSC_READER(R2) ,R2 : 
R9, (RB), (R2) 
#°R<R2,R3,R4,R5> 
uy B$B_FIPL(R5) 


XMT_START 
R3 


RO, ABORTIO 
G*EXESQIORETURN 
#°M<R3,RG,RS> 
G*EXESABORTIO 


; Restore registers 


Get address of data portion of buffer 
Move data to system buffer 


Sync access to UCB 

Save R 

Do common_processing 

Restore R3 

Br if error in processing request. 
Exit Q10 service to await completion 


; Restore registers 
; Abort the 1/0 request 
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. -SBTTL XMT_FFI_LSTART = START FAST INTERFACE TRANSMIT OPERATION 
XMT_FFI_START = START FAST INTERFACE TRANSMIT OPERATION 
Functional description: 


This routine is called to start a transmit operation. If the DEUNA/DELUA is 
running then the request is gives to the xmit wait queue for the DEUNA/DELUA. 
If there is a free entry in the transmit ring and there are sufficient map 
registers to map the buffer then the request is rs to the DEUNA/DELUA 
immediately, else the request is left on the xmit wait queve until another 
request completes. 


** The driver should never do direct 1/0 on XMIT requests, because ** 
s** the DEUNA/DELUA is very slow if the buffer address begins on an odd byte *** 
** boundary. Also, the FAST interface cannot operate on DIRECT 1/0. ** 
Inputs: 
R3 = CXB address 
R4 = FFI address 
IPL = SYNCH (same as FIPL) 
Outputs: 


RO,R3 are destroyed. 
ALC other registers are preserved. 
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If the request cannot be Queyed, then the FFISL_XMIT_DONE entry is 
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: called immediately with the following: 
1 RO = Status of transmit request 
1 R3 = CXB address 
* R4 = FFI address 
1 a odinaall 
: ASSUME IPL$_SYNCH EQ IPL$_XE_FIPL 
18 XMT_FFI_LSTART:: ; Start FAST interface transmit request 
36 =s«BB 19 PUSHR #*M<R1,R2,R4,R5> ; Save registers 
55 34 a4 00 0 MOVL FFISL_DL_UCB(R4) ,R5S ; Get UCB address 
24 A353 D4 8F 1 CLRL CXBSL_T_TRP(R3) ;_No IRP with CxB 
18 AS OE A2 3 y SUBW #XE_C“HEADER, CXBSW_BOFF(R3) ; Back up offset for Ethernet header 
96 4 ASSUME NMASC_STATE_ON EQ 0 
96 5 ASSUME NMASC_STATE_ OFF EQ 1 
04 ad cS sC«E8 96 § BLBS UCBSB_XE_PAD(RS) ,20$ ; Br if pedding is disabled 
18 A ne A2 SUBW «= @XE_C“CNTSIZ,CXB$W_BOFF(R3) ; Else, skip Length field of buffer 
51 18 a3 3C O39F 8 208:  MOVZWL CKBSU"BOFF (RS) RI ; Get offset to start of data 
oe . oe. .oe A 4 ADDLS = R1,R3,R ; Set R2 to start of header 
A7 1 ASSUME XBUF _W_ UNUSED EQ XBUF_G_DEST+6 ; 
28 AS so7D A7 ¢ MOVQ CxXB$0_STATION(R3),- ; Store destination address 
6¢ AA XBUF_G_DEST(R2) 
OOCA C 80 AB 4 MOV UCBSW_XE_PROTYP(RS),- ; Set PROTOCOL TYPE 
OC Ae 3AF 5 XBUF —W_TYPE(R2) 
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ara tit TLFFI_LSTART ART FAST INTERFACE TRA oat at 90:38:34 YORIVER. SREINEDRIVER.MAR: 1 
49° 1 3 § BSBB XMT_INITIATE 3; Try to start transmit 
of 22 E 8 BLBS R $ ; Br if success 
54 0178 (5D 4 a MOVL UCBSL_XE_FFI(R5S),R4 : Else, get back FFI address 
14 84 16 0388 9 JSB aFFISC_XMIT_DONE(R4) : Complete request in error 
6 BA Q ti 40 508: POPR #*M<R17R2,R5,R5> ; Restore registers 
05 O03C 4) S$ ; Return to caller 
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: -SBTTL XMT_START = START TRANSMIT OPERATION 
; XMT_START = START TRANSMIT OPERATION 
Functional description: 


This routine is called to start a transmit operation. If the DEUNA/DELUA is 

; running then the request is given to the xmit wait queue for the DEUNA/DELUA. 
If there is a free entry in the transmit ring and there are sufficient map 
registers to map the buffer then the request is gtven to the DEUNA/DELUA 
immediately, else the request is left on the xmit wait queue until another 
request completes. 


XEDRIVER = VAX/V 
VOe~000 XMT_STA 
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** The driver should never do direct 1/0 on XMIT requests, because ** 
*** the DEUNA/DELUA is very slow if the buffer address begins on an odd byte *** 
** boundary. Also, the FAST interface cannot operate on DIRECT I/0. ** 


Inputs: 
CXB address 


R2 = 
Rg = IRP address 
RS = UCB address 


ASSUME NMASC_STATE_ON EQ 0 
0 es NMASC_STATE OFF EQ 1 
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1 
1 
: IPL = FIPL 
' Outputs: 
1 RO = Status of transmit request 
: R1,R2,R3,R4 are destroyed. 
1 =e 
1 -ENABL LSB 
1 XMT_START:: ; Start transmit operation 
04 =«€0 1 BBS #UCBSV_XE_RUN,=- : Br if unit is in RUN mode 
10 68 AS ; UCB$W_BEVSTS(RS),30$ 
50 2004 8F 3C 6 10$: MOVZWL #SS$_DEVINACT,RO ; Assume unit not started yet 
OE £1 B BBC #UCBSV_XE_INTERLOCK,- ; Br if unit is not re-starting 
05 68 AS D UCB$W_BEVSTS(RS) .20$ =: on it’s own. — 
50 0204 8F 3C 0 MOVZWL #SS$_OPINCOMPL RO ; Else, return different error code 
05 2 208: RSB :; Okay to leave now 
24 A2_ 5 dO 6 308: MOVL R3,CXBSL_T_IRP(R2) ; saye IRP address 
1A A2 328 80 A MOV)  $IRP$W_BCRTTR3),CXBSW_BCNT(R2) ; Set BCNT in CXB 
s te D F mova R2,R3 :; Copy CXB and IRP addresses 
04 on09 cS.” soE8 : L UCBSB_XE_PAD(RS) ,35$ ; Br if padding is disabled 
18 A 0¢ A2 SUBW #XE_C"CNTSIZ,CXB$W_BOFF(R3) ; Else, skip Length field of buffer 
51 A B 35$: MOVZWL CXBSW"BOFF (RS) «RI ; Get offset to start of data 
- 2 4. F ADDLS R oR ; Set R2 to start of header 
40 A4 3 VQ IRPSQ“STATION(R4),- : Store destination address 
62 § XBUF_G_DEST(R2) 
3A AG «BO MOV IRP$SW-XE_PROTYP(R4),- ; Store PROTOCOL TYPE 
OC A2 A XBUF “W_ TYPE (R2) 


a 
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XMT_INITIATE:: ; FAST Interface entry point (FFI) 
: Inputs: 
: RS = UCB address 
: R35 = CXB address 
; R2 = Start address for Ethernet header 
20 A3 «6(07—Cis«O9 MOVB #XE_FC_V_XMIT,CXB$B_xXE_FUNC(R3) ; Set function request in CXB 
68 A2«55—«0 MOVL  RS.RBUF_C_UCB(R2) ~~ ; Save UCB address . 
50 34 CLRL RO ; Assume no CRC 


ASSUME NMASC_STATE_ON EQ 0 

ASSUME NMASC_STATE_OFF EQ 1 

BLBC UCBS$B_XE CRE CRS) 608 ; Br if CRC generation is ON 
MOVW #XE_C_CRE,R 


; Else, allow user to xmit a CRC 
40$: ASSUME NMASC_STATE_ON EQ 06 
ASSUME NMASC"STATE_OFF EQ 1 
BLBS UCBSB_XE_PAD(RS) ,60$ ; Br if padding is disabled 


03 00DD C5 ED 
50 


09 0009 CS «EB 


; PADDING IS ENABLED: 
$ Adjust byte count to include size field and store count field. 


MOV CXB$W_BCNT(R3) ,- ; Else, store size of data-only 


XBUF _@ SIZE(R2 portion of buffer in messa 


OE : 9 
1A AS 02—s A ADDW #XE_C_UNTSIZ,CXBSW_BCNT(R3) ; And account for count field 


: Allow buffer size up to Ethernet max buffer size for transmit operations. 
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51 50 OQOS5SDC 8F Al 60s: ADDW3 #MAX _PKT size RO,R1 ; Calculate size of largest packet 
51 1A A3_ Bi CMPW = CXBSQ_BCAT(R35 .RI : Is buffer size bigger than 
: corgest Ethernet buffer allowed? 
06 1B BLEQU§ 90% ; Br if no 
50 O34C 8F 3C 80$: MOVZWL #SS$_IVBUFLEN,RO ; Assume bad buffer length 
05 RSB ; ELSE, leave now 
54 0180 C5 o9 90$:  MOVL  UCBSL_XE_CDB(RS5).R4 ; Get CDB address 
, ae BEQL 100$ ; Return error if no CDB . 
01 E1 3 BBC #CDB_STS_V_RUN,- ; Br if DEUNA/DELUA not running 
17 025A C4 37 244 CDB_6_STS(R4), 1008 pale 
3 AO 8 44 ADDW #XE_C _HEADER,=- ; Adjust byte count 
1A A D 44h CXB$Q_BCNT(R3) : for header info 
; 446 ; If running in the SHARED-LIMITED mode, then we must use the destination 

F 2447 ; address from the SHR_ data structure. Unless the given destination address 
F 2448 ; is a multicast address. For the SHARED-DEFAULT user, we must make sure that 
; ret ; destination address given is unique! 

03 £1 F 2451 ° BBC #UCBSV_XE_ SHARE ,- ; Br if NOT a shared user 

4A 68 AS 441 42¢ UCBSW~DEVSTS(R5) .NO_SHR ; 
444 494 : Try to find a match on PID/CHAN. Returns pointer in R1 
53 DD 0444 2456 * PUSHL R3 ; Save CXB address 
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raat XMT_START = START TRANSMIT OPERATION Bets 88: 38: 34 YORIVER. SRCIXEDRIVER.MAR; 1 (20) 
53 246A 4 446 ri MOVL CXBSL_T_IRP(R3) ,R3 ; Get IRP address 
01 446A 24 8 BSBW MATCH SAR ; Try to find the SHR data structure 
S Bend oder 5600 a 5 les, casters tal abe 
; Else, restore address 
FF71 Rf 35 68 100$: BRW 10$ 3; Return error 
53 B8EDO 045 4635 110$ POPL R3 ; Restore CXB address 
51 00c4 c5)—séD1 458 2464 CMPL UCBSL_XE_DEFUSR(R5),R1 ; Is this the default user? 
OE 13 $20 78 BEQL SHR_DEF ; Br if yes 
Oe3r 487 3; This is a SHARED-LIMITED user. 
2C 62—=C#EB8 et 469 BLBS XBUF_G_DEST(R2),NO_SHR ; Br if multicast address 
12 Al D0 bebe 470 MOVL SHR_G_BEST(R1) ,- ; Else, get destination from SHR struct. 
62 0465 2471 XBOF-G BEST (RD) F al 
16 Al BO 0466 rik MOVW SHR_G_DEST+4(R1),- 3 eee 
04 A2 0469 247 BOF-G_DEST+4(R2) ; ee 
21 11 0468 2474 BRS NO_SHR 3; Continue in common code 
046D 2475 -DSABL 5 
046D 2476 ; 
Be98 ri 44 ; This is a SHARED-DEFAULT user. 
50 0098 CS 9E 0460 2479 SHR_DEF :MOVAB UCBSQ_XE_SHARE(R5),RO ; Get address of SHR Listhead 
51 50 DO 047 480 MOVL R 3; Save address of start of Listhead 
51 4 DO 047 481 10$: MOVL SHR_L _QFL(R1) ,R1 ; Get address of next in List 
51 0 D1 0478 $36 CMPL RO,R1~ 3; Back at start of List? 
11 #13 04678 ‘3 BEQL NO_SHR ; Br if yes, destination is unique 
62 D1 047D 484 CMPL XBOF_G_DEST(R2),- 3; Address em 
12 Al 047F 2485 SHR_G_DEST(R1) ; ie 
F2 12 0481 2486 BNEQ 10$ ; Br if no = check next in List 
04 A2 Bi 0483 2487 CMPW XBUF _G_DEST+#4(R2),- ; Hi order of address match? 
16 Al 0486 2488 SHR_G_DEST+4(R1) ; 
EB 12 0488 2489 BNEQ 10$ : Br if not - check next in List 
50 14 3C Q48A 2490 MOVZWL #SS$_BADPARAM,RO ; Else, bad parameter code 
05 048D 2491 RSB ; Return to caller 
048E 49 
048E 4935 NO_SHR: 
048E 494 ; 
048E 2495 ; If we are running in point= to-point mode, then queue xmit on wait queue 
et 3 * ; if we are waiting for run! 
00 91 048E 498 CMPB #NMASC_LINPR_POI,- 3% Are we in PT-TO-PT mode? 
00D8 C5 049 499 UCBS$B_XE_PROTRS) 32 
E 12 049 289 BNEQ 72 Br if not 
E1 49 1 BBC eke’ XE_STACK,=- 3% Br if not in stack wait state 
09 68 A 0497 308 ucesu O BEVSTSCRSS .4 40$ = 
00B4 05 6 OE 049A 250 INSQUE (R3) SUCBSQ_XE_XMTREQ+4(R5);% Else, insert request on wait queue 
50 01 QA Q49F eRe MOVZBL #1,R6 :% Return success 
05 Tr 23 RSB 3% Return to caller 
4A 309 3; Insert request on CDB transmit request queue and check if transmit 
on 208 3 can proceed. 
0080 D4 «663~—COOE sh 319 dos: INSQUE (R3),@CDB_Q_XMTREQ+4(R4) ; Insert at end of xmit queue 
4A 16 XMT_ALT_START:: ; Alternate start for xmit 
04A 51 ; 
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00000000 ' GF 
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: Move CXB info into UCB 


REMQUE SC0O_G_HATREGCRS) .AS ; Get oldest xmit request 

BVS 20$ ; Br if none 

MOV EXBSW_BCNT(R3) ,UCBSU_BCNT (RS) 3 Set byte count 

MOVZWL CXB$W_BOFF(R3),R2 ; Get offset to start of data 

ADDL ; Compute buffer virtual address 

BICW3 #*C<VASM_BYTE>,- : Get buffer offset 
R2,UCBSW~BOFF (RS) ? 


: Convert virtual address to physical PTE address 


EXTZV #VASV_VPN,AVASS VPN,R2,R2 ; Get virtual page number 

MOVL G*MM ScL_SPTBASE . ; Get the base address of the SPT 

MOVAL (RO)CR2 TUCBSL_SVAPTE (RSS ; Set address of the SPT entry 
; The following instruction also sets the data path number to the Direct 
; Data Path. 

ASSUME VECS$W_MAPREG+2 EQ VECSB_NUMREG 

ASSUME VECSB_NUMREG+1 EQ VECS$B_DATAPATH 

MOVL CDB_L_XMTMAP(R4) ,- ; Assume we use preallocated map 

CRBSL-INTD+VECSW_MAPREG(R6) ; register. 
TSTL B7 : Is mapping slot the preallocated one? 
BEQL 50$ ; Br if yes - al t 


se 
; Else, allocate the map registers 
> Allocate UNIBUS map registers 


CLRB CRBSL_INTD+VECSB_DATAPATH(R6) ; Reset data path usage 
JSB G* IOCSALOUBAMAP ; Allocate UNIBUS map registers 
BLBS R $ ; Br if one available 

INSQUE (R$) ,CDB_Q_XMTREQ(R4) Re-insert CXB on request queue 


0$:  POPQ § R6 : Restore R6,R7 
S“#SS$_NORMAL ,RO : Good return 
; Return to caller 


oO 
ad 


Try to allocate a buffered data path. If successful use it, else use the 
Direct Data Path. 


This driver does not precotiocete any buffered data paths because it is 
not known how many DEUNAs/DELUAs will be installed on any one CPU. Neither 
it known how — other devices on that same CPU may also wish to use the 
buffered data paths, therefore no pre-allocation is done. 


JSB G* LOCSREQDATAPNW 
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; Request a buffered data path 


DELUA Driver 16-SEP-1984 00:32:54 VAX/VMS Macro v04-00 Page 53 XED 
T TRANSMIT OPERATION elses 00:38:34 DRIVER. SRCIJXEDRIVER.MAR; 1 . (20) v4 
3; Inputs: 
3 R5 = UCB 
R4 = COB | 
PUSHQ = RE ; Save R6,R7 
MOVL UCBSL_CRB(RS) ,R6 ; Get CRB address 
ASSUME A L 
FFC #0 WMAX_C_XMT,CDB_B_XMTMAP(R4) R7 ; Find a free transmit slot 
BEQL 208 ; Br if none free 


is 
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x priyer VAX/VMS DEUNA/DELUA Driver i a Sth 9 00:36:38 AX/VMS Macro V04-00 Page 54 
vO04- T START = START TRANSMIT OPERATION -SEP-1984 :19:2 DRIVER. SRCIXEDRIVER.MAR; 1 (20) | 
; 4 4 ; Save the map information and map the buffer. 
507 “ ASSUME VECSW_MAPREG+2 EQ VECSB_NUMREG 
507 74 ASSUME VECSB_NUMREG+1 EQ VECSB_DATAPATH 
34 ry DO 0507 75 MOVL CRBSL_INTD+VECS$W_MAPREGTR6),- ; Save mapping info 
3C AGG 50A id: coe L“XMTMAP(R4)ER7] ; in CbB 
50 57 SETBIT R7,COB_B_XMTMAP(R4) 3 Set mapping slot in use flag 
22 a3 57 90 2} 278 MOVB R7,CXBSB_XE_SLOT(R3) ; Save mapping slot number used 
218 : 9 ; Find next ring entry and insert data 
52 i AS oO9A 218 : ¢ MOVZBL CDB_B_NEXTXMT(R4) ,R2 ; Get next ring entry 
18 AG 96 1A INCB CDB_B_NEXTXMT(R4) ; Bump ring pointer 
FC 8F BA 0510 2584 BICB #*C2MAX_C_XMT-1>,= :; Modulo xmit ring size 
18 AG 520 2585 CDB_B_NEXTXMT 3 
23 a3. 90 0522 25 § MOVB 2,CXB$B_XE_RING(R3) 3 Save ring entry number 
52. 4C AGG DO 0526 25 MOVL ay: L_XRADDR(R4)CR2],R2 ; Retrieve next ring entry address 
63 1A AS BO 3 8 oe MOVW CXBSWIBCNT(R3),XMT_W_SLEN(R2) ; Store message length 
08 A 2 AS BO O52F 2589 MOVW  CXBSWIXE_RID(RS) .XAT—W RID (RQ) ; Store unique request ID 
02 A2 C AS) 680 (0534 590 MOVW UCBSW_BOFF (RS) XMT SEGBL(R2) ; Move byte offset - BAO-BA8 
34 AB «6FO OCO0539 = 2591 INSV CRBSL “INTD+VECSW MAPREG(R6).- ; Insert BA9-BA15 
02 A2 O07 09 053¢ 235 #9,87,XMT_W_SEGBC(R2)  ;& 
50 34 A6 O02 O7 EF Q540 259 EXTZV #7,42,CRBSL INTD+VEC$W_MAPREG(R6) RO ; Get BA16-BA17 
04 A2 50 90 0546 259% MOVE RO.XMf_B_SEGBH(R2) : Insert 6A16-BA17 | 
56 5200 054A = 2595 MOVL R ; Save xmit ring entry | 
00000000'°GF 16 0540 596 JSB G6* [OC SLOADUBAMAPA ;_Load map registers 
05 A683: BF 90 055 597 MOVB #XMT_FLG_M_STP!XMT_FILG_M_ENP!= ; Give buffer to DEUNA/DELUA 
0338 598 XMT_PLG_A_OWN,XMT_B_FLAGS(R6) ; j 
0087 (C4 «96 Be2e 44 INCB CDB~B_XATENT(R4) ; Tally one more xmit in progress 
055C 2601 ; Request and load the port 
055C one 3 
055C 260 POPQ R6 3; Restore R6,R7 | 
OSSF 2604 DSBINT UCBS$B_DIPL(RS) : Sync access to device 
0088 D6 «663 )6«6—0E:«=—(0566 = 2605 INSQUE (R3),aCDB_Q_INPUT+4(R4) ; Insert at end of input queue 
03 12 0568 2606 BNEQ ; Br if not first entry on queue 
OF4C 30 056D 2607 BSBW LOAD_PORT ; Load port 
B258 608 60$: ENBINT ; Restore IPL 
FF32 = 331 b2e2 202 BRW XMT_ALT_START ; Try for more requests | 
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‘ -SBTTL RCV_FDT = RECEIVE 1/0 OPERATION FDT ROUTINE 
RCV_FDT = RECEIVE 1/0 OPERATION FDT ROUTINE 
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Functional description: 


The specified buffer is checked for accessibility. The buffer address and count 

are saved in the packet. Then IPL is set to device fork IPL and if a message is 
available the operation is completed; otherwise, the packet is queued onto 

the waiting receive List. 


The Q10 parameters for WRITES are: 
Pl = Address of the data buffer 
Pe = Size of the data buffer 
P5 = Optional address of the buffer to receive the source address 
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rf 
re 
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3 
76 
re 
i 
a8 
76 
76 
76 
76 Inputs: 
76 
76 R3 = IRP address 
76 R4 = PCB address 
76 R5 = UCB address 
76 R6 = CCB address 
76 R7? = Function code ; 
oe AP = Address of the first operation specific qio parameter 
76 IPL = ASTDEL 
76 
oe Outputs: 
76 RO = Status of the receive qio operation 
76 R35 = IRP address 
oe r RS = UCB ADDRESS 
76 4 R1,R2 are destroyed. 
ig B8t8 i 
} 
76 2668 RCV_FDT:: ; Read operation FDT 
76 2649; 
te o29 3; Check the request params 
30 AS B4 id: 63¢ ' CLRW IRPS$W_BOFF(R3) : Set mo quota to here 
50 OC 9A 7 65 MOVZBL ScASSS_ACCVIO.RO ; Assume access violation 
57 10 AC OD 57C 2654 MOVL PS(AP),R ; Get address for source address 
33. = 1 5 $33 BEQL 1 : Br if none 
5 6 § IFNOWRT #RHDR C_DATA,(R7),20$ ; Check for write access to buffer 
07 £0 05 65 BBS #IRPS? UF ,= : Br if diagnostic buffer given 
28 2A A3 SBA 698 IRP$W_STS(R3) ,10$ : ahi 
51 1A 9A 058d 265 MOVZBL #RHDR_C_LENGTH,R1 3; Get size of header buffer 
53 ~OD 2 660 PUSHL ; Save IRP address 
00000000'°GF 1 9 661 £38 G*EXESALLOCBUF 3; Allocate header buffer 
3 BED 22 666 OPL 3; Restore IRP address 
4 E 98 266 BLBC ay -708 ; Br if allocation failure 
4C a3 i 59 664 MOVL R2, IRP$L_DIAGBUF (R3) : gave buffer address 
2a a3 (0080 BF OA 3A 665 B1Su #1RPSR_DTAGBUF , RP$W_STS(R3) ; Indicate diag buffer present 
82 OC A2 9E OQ5A 66 MOVAB RHDR-T"“DATA(R2),(R2)+ ; Set address of start of data 
SAC 2668 ASSUME RHDRTL“BUFFER EQ RHDR_L_DATA+4 
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82 57 00 AC $68 MOVL R7,(R2)+ Set user buffer address 
AF 2670 ASSUME RHOR tne SIZE EQ RHDR_L BUFFERS 
82 51 60 AF 2671 MOVW R1, (R2T¢ Sgve size of allocation 
58 676 ASSUME RHOR B_TVPE EQ RHOR_W. sites 
8 13 90 058 67 MOVB POYNSC “BU 0,(R2)+ Set structure type 
14 9A 0585 2674 10$:  MOVZBL snasst “BuoP PRRARS RO : Assume illegal size 
51 24 Ac C 0588 2675 MOVZWL P2C(A 3; Get size 
5BC 0/8 
5B8C 267 
5BC ors 
20 13 OSBC 267 BEQL 20$ ; Br if zero - illegal 
p? BF 6 9 MOVL P1(AP),RO ; Get user buffer address 
3C A DO O5c1 26 MOVL RO, IRP$L_XE_DATBUF(R3) : Save user VA for completion | 
00000000'GF 16 05¢€5 26 Q JSB G*EXESREADCAK ; Check the buffer 
5CB 26 : return on NO ACCESS) 
2A A3 20 AB p2ce 684 BISW #IRPSM me 0. IRPSW_ stsins). : Allow data ety 
5CF 2685 SETIPL uCB$B_FIP 3; Raise IPL to lock data base 
10 8203 O86 BSB8B REV STAR ar : meas the request 
06.50 £9 0505 26 BiB | RO,208 ; Br if error | 
00000000'GF 17 0508 688 JMP 6" EXES01ORETURN t Else, take normal return | 
FDA2 31 OSE 690 20S: BRW ABORTIO ; Abort the request 
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r «-SBTTL RCV_START = START RECEIVE 1/0 OPERATION 
RCV_START = START RECEIVE 1/0 OPERATION 
Functional description: 


sets" 


Di 
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<< 
—-o 
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Check for device active. Receives cannot be queued to the UCB receive 
queue unless the UCB has been initialized via routine START. They 
cannot be put in the IRP queue since this could result in non-sequential 
receive processing due to the existence of the separate receive queue. 

Inputs: 


R3 = IRP address 
R5 = UCB address 


| 

| 

IPL = FIPL | 
Outputs: | 
| 


RO = Status of receive request 
R4 = CDB address 


R1,R2 are destroyed. 
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NACT_ERROR: | 
MOVZWL 
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50 2004 8F 3C 9 #SS$_DEVINACT,RO ; Setup return status 
05 , ; Return to caller 
¢ -ENABL LSB 
RCV_START:: ; Start receive 1/0 operation | 
046 «é# 4 BBC #UCBSV_XE_RUN,- ; Br if UCB is not in RUN mode 
F5 68 AS 5 UCBSW_BEVSTS(R5), INACT_ERROR | 
54 0180 C5 00 ; MOVL  UCBSL_XE_CDB(R5) .R4 : Get CDB address | 
39 = 8 BEQL 40$ : Br none 
01 =€1 9 BBC #CDB_STS_V_RUN,- ; Br if DEUNA/DELUA not running 
E8 025A C4 0 CDB_6_STS(R4), INACT_ERROR | 
51 OOA0 C5 9% 1 MOVAB UCBSQ~XE_RCVMSG(R ),R1 ; Get address of UCB received messages 
3 | 
: ; If running in SHARED mode, then use the Listheads in the SHR_ 
: : data structure. 
E1 6 ‘ BBC - MUCBSV_XE_ SHARE, - ; Br if UCB is NOT SHARED | 
09 68 A5 f UCBSWIDEVSTS(R5) ,5$ =; | 
3 : Try to find a match on PID/CHAN | 
0027 3 41° BSBW = MATCH_SHR ; Try to find shared user 
| ae tg BNEQ INACT_ERROR ; Br if none - inactive user 
51 Al 9 tz MOVAB SHR_Q_RCVMSG(R1),R1 ; Get address of received messages 
43 : Check to see if message is available 
52 91 OF 23 Ss: REMQUE @(R1)+,R2 : Dequeue a received message : 
8 ; ..bump pointer to end of List pointer 
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XEDRIVER = VAX/VMS DEUNA/DELUA Driver 16-S$ 73 AX/VMS cro V04-00 Pa 
raat RCV_START = START RECEIVE 1/0 OPERATION g-seF 138 88: 38: 34 DRIVER.S REI XEDRIVER.MAR; 1 “i 23) 
05 1D 60 749 BVS 108 ; Br if none | 
oi f ° ; Complete receive with available message 
185A 70 oH 7 j BSBW EANISHRCV.10 g Complete the receive 
13 1 oie f 2, BRB 30$ : And exit 
is 4 g: : Queue IRP for future message arivial unless IOSM_NOW specified 
0A 20 A306 £1 0616 5758 10S: BBC #10$V_NOW 1RPSu FUNC(R3),20$ ; er if mot READ NOW 
50 0870 8F 3C 061 759 MOVZWL #SS$_ENDOFFILE,RO ; Set no message status 
0 06 £60 BSBW DONE S Complete the 1/0 
11 4 BRB 3° : And exit 
Oe 768 ; Queue the IRP to UCB receive wait queue 
6 765 ‘ ASSUME ycesa. ME_RCVREQ EQ UCBSQ_XE_RCVMSG+8 
6 : 708 ASSUME SHR_Q akc OREO EQ SHR_Q RCOM S6+8 
08 4 63 OEF 06 76 gos: INSQUE (R3),08(R 3 he acket on waiting List 
0 01 9A 0629 2768 30$:  MOVZBL S*#sé$ NORMAL, RO : Set Q10 status return 
05 062C 2769 40$: RSB : Return to caller 
062D 770 -DSABL LSB 
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6 4 re -SBTTL SUBROUTINES TO FIND SHR DATA STRUCTURE | 
é 4 ore 4 Subroutine to find SHR data structure for user 
D 3776 : Inputs: | 
D 558 3 — R = Address of IRP 
4 a : RS = UCB address 
62D 2780 : Outputs: 
62D 2781; Ri = Address if SHR data structure if match 
62D 27 § 3 RO is destroyed. 
62D 2783; Z-Bit set then match. 
? 4 4 : : 27-Bit clear then no match. 
62D 2786 - 
62D 27 : MATCH_SHR: ; Try to find shared user 
51 00c4 C5 0 62D ree MOVL UCBSL_XE_DEFUSR(R5),R1 ; Get address of default user 
06 #1 632 27 BEQL 10$ ; Br if no default user 
1¢ i? be 4 790 BSBB CHECK_SHR 3; Check for match 
19 #1 O38 791 BEQL 40$ ; Br if matc 
50 0098 C5 43 063 792 10$ MOVAB ucese -XE_SHARE(R5),RO ; Save address of Listhead 
51 50 00 063d 279 OVL RO,R ; Copy Listhead address 
0640 2794 ASSUME si L QFL EQ 0 
51 61 DO 064 795 20$ se T,R1 : Get next in List 
50 51—i1 064 196 CMPL 1,R6 : Back to start of List? 
06 13 064 79 BEQL oH : Br if yes - no pid/chan match 
08 10 064 798 BSBB CHECK_SHR ; Check for match 
F4 12 064A 2799 BNEQ 20$ ; Br if none 
03 11 064C 2800 BRB 40$ ; Return in success 
50 50 00 064E 2801 30$: MOVE RO,RO 3; Return match failure 
05 0651 ge 40$: RSB 
Oe3 608 : Subroutine to check if PID and SHR data base match up 
$82 BOP : Inputs: 
065 508 3 R1 = Address of SHR 
$2 B10 $ R3 = Address of IRP 
65 11 : Outputs: | 
65 HE 3 Z7-Bit set then match. 
65 815 ; Z7-Bit clear then no match. 
$33. git i+ | 
65 1 CHECK_SHR: : Check for match with SHR data base 
OC AS DS 065 1 TSTL {RPSL _PIDCRS) : Is this an Internal IRP user 
09 «19 $2 8 BLSS 0$ : Br if yes, only one allowed ae ucB | 
b27 ? : Normal Q10 user 
OC Al OC AS” CD tH § CMPL RPS$L_PID(R3) ,SHR_L -PID(R1) ; ; PIDs match? | 
OF \¢ 65C BNEQ 305 : Br if no - try for next 
08 1 92 : 0$ ; Else, continue checks | 
és § t Internal i?P user 
Oc Al 0088 C5 D1 066 8 10$:  CMPL  UCBSL_XE_PID(R5),SHR_L_PID(R1) ; Is this the Internal user? | 
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iver 
DATA 
0 i 9 BNEQ 30$ ifn 
10 Al 28 A 3 ge 0 eps: CMPW IRP$W_CHAN(R3) ,SHR_W_ CHAR) : a match? 
5 066D } O$: RSB ; Return to caller 
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ogk ¢ -SBTTL ALT _START = ALTERNATE START 1/0 ROUTINE 
ee: 8: : ALT_START = ALTERNATE STARTIO 1/0 ROUTINE 
66 g : Functional description: 
66E 40 : This routine is called by the Executive to pass an ‘internal’ IRP 
66E 41 : to the driver. ‘“‘Internal’’ IRP's are those not built via Q10. 
66E tg ; These IRPs are used by higher Level eettvere used to request 1/0 and 
066E 43 ; should not be contuses with the IRPs built and passed by the 
066E 44 ; Transport layer to NSP. The action here fs to setup the ire fields 
Bose rf 3; as if the packet had been processed by the FDT routines. 
O66E ‘3 : Inputs: 
066E 2849 3 R3 = IRP address 
08: B29 3 RS = UCB address 
Reve B36 : ALL pertinent fields of the IRP are assumed to be valid. 
Ci SS bey 
O66 856 : Implicit inputs: 
S083 S28 : : IRPSL_SVAPTE(R3) = System VIRTUAL address (not physical PTE address) 
BE B4E) | Oututs 
066E B66 : RO-R5 may be garbage 
bese S8Gk 
066E 2865 ALT_START:: 3 oscert an ‘‘internal’’ IRP 
01 €0 066 366 BBS #IRPSV_FUNC,- 3 then read function 
2D 2a A3 0670 286 IRP$W_STS(RS), 108 
OOCA CS) =6BO S067 868 MOV UCB$SW"XE_PROTYP(RS),- ; MUST be a non-promiscous user 
3a A3 67 869 IRP$W “XE “PROTYP(R3) ; 
52 2C AS 00 0679 2870 MOVL IRPSL_SVAPTE(R3) ,R2 ; Get address of start of data 
a ae. ee 67D 2871 SUBL3 #xE_C “HEADER, (R25 ,R1 : Get the xmit buffer address 
51 52 C2 0681 13 SUBL Re. . 3 Form offset to start of data 
18 As 51 B60 0684 287 MOV R1,CXBSW_BOFF (R2) : Store offset in C 
OA A 18 90 0688 2874 MOVB #DYNSC_CRB,CXBSB_TYPE(R2) ; Set structure type to CXB 
0008 cS) = 91s«068C (2875 CMPB  —«dUCBS$B_RE_PRO(RS)>- 7% Point-to-point mode? 
0690 26 vamAst *EENPR. PO! 
0 12 91 7 BNEQ iT if s 
40 A 7¢ 93 4 CLRQ IRP$Q_STATION<R3) :% Pick. Up destination from SHR block 
5 ge 9 79 5$: PUSHL : Save IRP address 
Fog¢ 0 9 80 BSBW XMT_START ; Start transmit operation 
8EDO 98 + POPL R3 ; Restore IRP address 
% #11 eas ¢ BRB 30$ : Continue 
52 2C a3 09 A be 10$: MOVL RPSL_SVAPTE(R3) ,R2 : Get address of input buffer 
1 6A4 5 BEQL 0s : Br if none 
54 0180 C dO A6 36 MOVL UCBSL_XE_CDB(R5) ,R4 : Get CDB addres 
2c AS) 4 one CLRL IRPSL_SVAPTE(R3) ; Make sure SVAPTE is cleared 
6AE 3 : The driver must be prepared to process chained buffers returned from 
6AE 90 ; the higher levels. 
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91; 
3 b> te vee Ling tht 3; Save address of next in Link 
95 3 CXBSL_LINK(R2) $ lees the Link cell 
94 gtau ADDRCULIST 3; Else, add it to the receive list 
95:88 POPL Re : Get back oairene of next in chain 
38 388 BNEQ 15$ ; Br if more to return 
98 eps: BSBwW RCV_START ; Start receive operation 
99 30S: BLBC RO,40$ ; Br if error 
444 RSB ; Return to caller 
902 40$ RW 10_DONE : Post the 1/0 request in error 
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4 . -SBTTL SETMODE_FDT = SET MODE 1/0 OPERATION FDT DISPATCH ROUTINE 
SETMODE_FDT = SET MODE FDOT PROCESSING 


oO 
@ 
@ 
oO 


4) ATTENTION AST == IOSM_ATTNAST SET. 


905 ; 
eS 38h 
688 908 ; Functional description: 
688 2910 : This is the fdt routine for setmode functions. 
pees at} ; There are three functions based on subfunction modifier bit. 
688 318 : NOTE: That there is no difference on a request to shutdown a Line or 
6BB 2914 ; a circuit. However, a request to startup a circuit is ignored 
ren a ; completely. 
0688 $17 > The QI1O parameters for SETMODE are: 
pees 4h : P2 = Optional address of buffer descriptor for extended characteristics 
06BB 2921 : 
gees 4 ¢ ; The Subfunction modifiers are as follows: 
06BB 2924 : 1) CHANGE MODE -- NO MODIFIER BIT. 
0688 2925; This function is done in the STARTIO routine. Control is passed to 
trey 2 § : EXESSETMODE to validate the new mode buffer and queue the packet. 
0688 2928 ; 2) INITIALIZE THE UNIT == IOSM_STARTUP SET. 
0688 369 3 This function is done partially here and the remainder in STARTIO. 
0688 2930 ; The action here is to pick up the user buffered I/0 quota. The guste 
0688 2931 ; taken from the user is in IRP$W_BOFF. This value will be the I0S6+2 value 
nee 336 3 at 1/0 done. The mailbox is enabled and a receive is started. 
06BB 2934 : 3) SHUTDOWN UNIT -= IOSM_SHUTDOWN SET. 
0688 2935 ; This function shuts down the unit and eetional ly resets the mode. 
0688 2936 ; A CANCEL I/0 is performed, all outstanding 1/0 is completed, the 
0688 2937 ; message blocks are all returned and the unit is left in an idle 
0688 2938 ; state. This function cannot be done here and the FDT processing is 
0688 2939 ; that of all SETMODE operations. 
0688 Bey 
0688 Hk : This function sets up 3n AST to be delivered when a change of 

06BB 2943; status occurs on the DEUNA/DELUA. 

Fae 

aes a : Inputs: 

6BB 2948 : R3 = IRP ADDESS 

0688 2949 ; R4 = PCB ADDRESS 

6BB 2950 ; RS = UCB ADDRESS 

6BB 2951 ; R6 = CCB ADDRESS 

0688 326 3 R? = FUNCTION CODE 

Rees 327 ; AP = ADDRESS OF THE FIRST Q10 PARAMETER 

688 939 : IPL = ASTDEL 

en $57 : Outputs: 

688 335 : R3 = IRP ADDRESS 

6BB 2960 ; R4 = PCB ADDRESS 
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B 2961 ; R5 = UCB ADDRESS 
| 688 306 3 
B 29635; RO-R2,R6 are destroyed. 
6BB 2964 ; 
B 2965 ;-- 
688 398 
B 2967 SETMODE_FOT:: ; SET MODE FDT processing 
CA D4 968 CLRL IRPSL_SVAPTE(R3) ; Set no buffered packet 
BA 7C O6BE 39? CLRQ IRPSL_MEDIA(R3) ; Reset mode data area 
50 0084 8F 3C 06Ci 2970 MOVZWL #SS$_BEVOFFLINE,RO ; Assume unit if offline 
04 €0 06C6 2971 BBS #UCBSV_ONLINE,- ; Br if unit online 
03 64 AS 6C8 +44 CBSwW_STS(R5),5$ 3 
FCBS) =s« 311 Rete 4 6 BRw ABORTTIO ; Else, abort the 1/0 request 
57 20 AS BO O6CE 2975 5S: MOVW IRPS$W_FUNC(R3) ,R7 ; Get entire function code 
5c 57. 08 E11 O6b2 976 BBC #IOSVIATTNAST,R7,30$ ; Br if not attention AST 
se 44 ; User is requesting an attention AST 
57 00cO C5 DE 0606 2980 MOVAL UCBSL_XE_AST(R5),R7 ; Get address of AST List 
00000000 ' GF 16 pene 3B JSB G*COMSSETATTNAST ; Set up attention AST 
06E1 3B ASSUME UCBSV_XE_INITED EQ 0 
12 68 AS ED sed 44 BLBC UCBSW_DEVSTS(RS),10$ ; Br if protocol not active 
51 OOAO0 CS 9E OQ6E5 2986 MOVAB UCBS$Q_XE_RCVMSG(RS5),R1 ; Check for empty receive List 
61 51 D1 O6EA 2987 CMPL R1, (RT) : Eapty? 
13 O6ED 2988 BEQL 10$ :; Br if YES, no need to inform user 
53 OD O6EF 2989 PUSHL R3 ; Save IRP address 
2906 30 06F1 990 BSBW POKE_USER ; Inform user 
53 BEDO O6F4 2991 POPL 3 : Restore IRP address 
01 QA O06F7 336 10$: MOVZBL S*#SS$_NORMAL,RO ; Set success 
51 44 A5 DO O6FA 299 MOVL UCB$L_BEVDEPEND(RS).R1 ; Get device dependent information 
00000000 ' GF 17 Bene 838 20$: JMP G*EXESF INISHIO ; Complete the 1/0 
0704 2996 ; On a circuit request, 
0704 2997; If this is a shutdown then perform a $CANCEL and clear the RUN flag. 
fA 4.4 3 If this is a startup then set the RUN flag. 
1457 07 €1 0704 3000 25s: BBC #10SV_SHUTDOWN,R7,27$ ; Br if not a shutdown request 
0708 3001 SETIPL UCB$B_FIPL(RS) : Sync acces to UCB & CDB 
070C 300 CLRBIT #UCBSV_XE_RUN,- ; Clear the RUN flag 
70C 300 UCB$W_DEVSTS (RS) 
52 28 AS 3C 0711 04 MOVZWL IRPSW_CHAN(R3) ; Get channel number 
715 3005 ASSUME CANSC"CANCEL EQ 
58 4 0715 300 CLRL R : Set SCANCEL function 
2187 0 0717 300 BSBW CANCEL : Perform a CANCEL 
DB Cé«d'YW ma 943 BRB 10$ ; Complete the request 
D7 57 06 €1 O71C 3010 27$: BBC #10$V_STARTUP,R7,10$ ; Br if not a startup request 
7 2 011 CLRBIT #XM$V ERR_START UCBSL_DEVDEPEND(RS) ;% Clear start error flag 
0060 8F A8& 8 Bi§ ISwW UCBSA_XE~START'UCBSM-XE_STACK,- ;% Set start and stack states 
68 AS 729 4 uCBSwW_BEvSTS< : 
728 14 SETBI UCBS7_XE_RUN,- ; Set the RUN flag 
7 O15 UCBSu_DEVSTS(RS) 
« 4 81$ BRB 0$ ; Complete the request 
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7 18 ; For everthing except Attention ASTs we must make sure CDB is present 
4 19 ; and we must verify the P2 buffer. 
0180 cS DS (07 1 $0$:  =TSTL YCBSL_XE_CDB(RS) ; Is CDB there? 
of 1 7 ¢ BNEQ $ ; Br if yes 
1c 3 7 $ BSBwW ALLOC_CDB 3; Else, allocate CDB 
of 50 738 4 BLBS : Br if successful 
50 0124 Hi C 07 5 025 MOVZWL #S$$_INSFMEM,RO ; Set error return 
FC3D 1 Bete § 338: BRwW ABORTIO ; Return error 
0649 30 0746 8 358: BSBW GET_CHAR_BUF 3 Get P2 characteristics 
‘ 7 50 5? 749 8 9 BLBC 3} ; Br if error = Abort I/0 
52 F936 CF 3 74C 0 MOVAB LINE _PARAM_WO,R2 3; Assume the Line parameters 
05 57 =~09 3 2) 031 BBS #10$0_CTRL>R7, 36$ ; Br if Line request 
52 F9CS CF —E 0755 30 ¢ MOVAB CIRCUTT_PARAM,R2 ; Else, use the grreess parameters 
g*15 30 O75A 3033 36$: BSBW VALIDATE_P2 ; Validate the P2 parameters 
9E 5 E9 0750 3034 BLBC ; Br if error 
A057 09 €1 0760 3035 BBC #10$V_CTRL,R7,25$ : Br if not a LINE request 
0764 30 $ SETIPL UCBSB~FIPL(RSS : Sync access to UCB's 
Re 30 0768 30 BSBW AV _MOLTI ; Save the multicast address List 
0090 ¢ D4 0768 te CLRL IRPSL_XE_SHR(R3) ; Assume exclusive user 
03 €1 O76 039 BBC #ucB$7_ XE SHARE - ; Br if not a SHARED user 
16 68 A5 O77) 040 UCB$W_BEVSTS(R5S 408 ~—s: 
0774 Beg 3 Allow the shared user to change the destination node with which 
gre Rez : it is communicating. 
FEB6 §3=30 0774 3045 BSBW MATCH_SHR : Else, try to find shared user 
11 12 0777 3046 BNEQ ; Br if none found, skip it 
0090 c3.— =~51 «00 0779 3047 MOVL R1,IRPS$L_XE_SHR(R3) ; Save the SHR data structure address 
12 Al DO O77E 3048 MOVL SHR_G_DEST(R1),- ; Save the current destination user 
oocc C5 0781 049 UCBSG_XE DES(R5) ; address in the UC 
16 Al B80 ores 050 MOVW SHR_G_DEST+4(R1) ,= : or 
0000 C5 0787 51 UCBSG_XE_DES+4(R5) ; one | 
078A 033 ; Now we will set the parameters given in the setmode request. But, | 
O78A 3054 ; first if the DEUNA/DELUA controller is inited we will use the current 
o7 A 039 : hardware settings for the defaults. | 
51 0180 ¢5 DO 078A 3057 dos: MOVL UCBSL_XE_CDB(R5),R1 : Get CDB address 
078F 058 ASSUME CDB_STS J_INITED EQ 0 
13 025A C1 E9 O78F 3059 BLBC CDB_B_STSTR1) ,45$ ; Br if controller not enabled, use 
794 3060 ; the fixed defaults 
51 O25F C1 9E 0794 be MOVAB CDB_B_SETPRM(R1),R1 ; Get address of setable parameters 
52. 0000 C5) 9E_~=—«0799 6¢ MOVAB UCBSB-XE _CDBPRM(RS).R2 : Get address of UCB parameters 
50 0 9A O79E 306 MOVZBL #uCcest 44 CDBPRM,RO 3; Get size of parameters to move 
82 3} 9 7A1 3064 428: MOVB (R1)+, TR2T+ ; Store CDB parameters into UCB 
FA 50 SOF 7A& 3065 SOBGTR RO, ; Loop if more 
52 F8DB (FF 9 7A7 06 45$: MOVAB LINE PARAM _WO,R2 ; Get address of verification table 
of 38 30 O7AC 306 BSBW CHANGE PA i: Change the parameters 
51 0090 ¢ D 7AF $8 MOVL [RESL_RE_SHR(RS) .R1 ; Get the SHR structure address 
0 1 784 306 BEQL 0 ; Br if not present, skip it 
oocc C DO 0786 70 MOVL UCBSG_XE_DES(R5),- ; Else, reset the destination user 
12 Al 7BA 71 SHR_G_D ; address into the SHR structure 
0000 ¢5) — BO Ss(07B 7 MOVW UCBSG_XE_DES+4(R5),- ; eae 
16 Al zc 3 SHR_G~DEST+4(R1) ; ae 
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3; Check protocol type for uniqueness 

MOVZWL UCBSW_XE_PROTYP(RS),R1 ; Get protocol type 
For a user wishing to run in promiscuous mode, the requirement is that 
there be no other promiscuous users pag” or a non-promiscuous user, 
there must be no other users running with the same protocol type. 


MOVAB MATCH_PROTYP,RO ; Get address of Action routine 
3 assume non-PROMISCUOUS user 


51 OOCA CS 3C 


50 OOOOS0FF'EF 9€ 
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ASSUME NMASC_STATE_ON EQ 0 
ASSUME NMASC"STATE-OFF EQ 1 


BLBS UCBSB_XE_PRM(R5) ,90$ :; Br if NOT a PROMISCUOUS user 
The promiscuous user must have PHY_IO privilege 


MOVAB MATCH reget Ae ; Get address of Action routine 
IFPRIV PHY_10,90$ 


18 00DB CS_~—sEB 


50 O00003121°EF 9 
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ew GF # te ye 508: BBC #1O0SV_SHUTDOWN,R7,60$ ; Br if not shutdown request 
ree g ; Shutdown protocol request 
766 3079 ° ASSUME UCBSV_XE_INITED £0 0 
03 68 AS 8 07C6 BLBS BSUTDEDSTS (RS) , 858 ; Br if still inited 
FF2A 1 O7CA Rw ;_Else, complete 1/0 request now 
21 A3 H 0 O7CD 558: S*#XE_FC_V_STOP,IRPS$B_XE_FUNC(R3) ; Set internal function code 
0424 31 ee) BRW QUEPKT ; Queue request to DEUNA/DELUA | 
03 57 06 0 704 O$: BBS F108V STARTUP AT 008 ; Br if startup function 
0102 1 poe 708: BRW 180$ ; Else, must be change mode 
8708 : > Startup protocol request 
21 a3 00 90 poe 5 80s: MOVB #XE_FC_V_INIT, IRP$B_XE_FUNC(R3) ; Insert internal function code 
70F 9 : If the UCB is otreedy initialized for SHARED use, then we will 
93; check to make sure that the SHR struture exists. If it does then 
> 3 the share structure must be active, by definition. 
0090 c3_— oS 96° TSTL JRPSL_XE_SHR(R3) ; Was the SHR structure present 
F312 9 BNEQ 0$ ; Br if yes, already started 
03 £0 9 #UCBSV_XE_SHARE,=- ; Br if SHARED UCB, ingore status 
61 68 A5 9 UCB$W_DEVSTS(R55,125$ ; ..make user a shared user 
0 ASSUME UCBSV_XE_INITED 58 0 
EA 68 AS €E8 0 BLBS UCBSW_DEVSTS(RS),70$ ; Br if piready started 
0 3 .-check multicast address List 
>. a 0 BBC #UCBSV_XE_PROTYP,- :; Br if no protocol specified 
43 68 AS UCBSW_BEVSTS(R5),100$ ; ..error 
8 : Check if protocol type is to be shared | 
03 (91 08 * CMPB = #NMASC_ACC_EXC,- ; Is this PROTOCOL TYPE for exclusive 
00D4 ¢5 0 UCBSB_XE_ACC(RS) ; use? 
ss BW : BNEQ 125$ ; Br if not 
1 
1 
1 
1 
1 
1 
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; If user has privilege, then okay 


; sd 
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234C 0 18 313 BSawW RES a lF : Else, Restore original multicast List 
oe ¢ C 16 31 : MOVZWL #SS$_N . RO : Return error = NO OPRIV n: 
51 B18 B&F ¢ if 134 MOVZWL FNMASC OPCL PRM,R1 3; Return the bad aareastal 
FEDS 1 135 BRwW a : Finish the 1/0 request 
3 1 $ 90$: PUSHQ R4 : Save PCB, UCB addresses 
54 0180 C5 00 1 MOVL PERSE. AE_COOCRS) 6 ; set COB address 
60 16 1 8 JSB (RO) ; Try to find onect match 
1 POPQ R4 3 pestere PCB, UCB gecresens 
2250 €9 ; 140 BLBC = RO, 1308 : Br if none found - okay 
6 14 ; Bad protocol type 
51 OBOE 8F 3¢ 6 3144 1008:  MOVZWL #NMASC_PCLI_PTY,R1 ; Return bad parameter code 
0 11 33 : 102 BRB 120$ ; Finish error reporting 
O83D 149 : Bad quota calculated 
51 0451 8F 3C $83p 125 110$:  MOVZWL #NMASC -PCLI_BFN,R1 ; Return bad parameter code 
50 14 9A pete 150 1603: mOVZBL S“#SS$~ BADPARAM.RO ; Set error return 
231F 30 084 151 123$: B8SBW RES_MUCTI ; Restore original multicast List 
FEBS = 31 pees 13 ; Finish the 1/0 request | 
Obee 133 3 : Shared protocol type - look for same protocol type in other UCB. | 
0139 30 0848 3156 1258: BsBw SHR_UCB ; Find other UCB in user or make this | 
O84E 3157 ; UCB shareable 
F450 =E9 Bees 138 BLBC RO,123$ : Br on error 
bBay 199 : We must now check if UCB is already inited. | 
0851 16¢ : ASSUME UCBSV_XE_INITED £Q 0 | 
11 68 AS €9 0851 316 BLBC UCBSW-DEVSTS(R5),135$ ; Br if this UCB is NOT inited 
0855 3164 3 skip quota coking. already done 
o0sc 8=ss«511 bBee 193 BRwW 185$ 3; Else, compute multicast List 
0838 167 130$:  SETIPL #IPLS_ASTDEL ; Reset IPL to ASTDEL 
Obes 4 : Take quota needed 
0097 30 Spee tg i BSBW TAKE_QUOTA : Take quota from user | 
—4 50 +=€9 ope \7¢ BLBC 1238 : Br if error 
00c8 cS) ss 57~—S—s«#BO 6 17 MOVW R7,UCBSW_XE_QUOTA(RS) ; Save quota in UCB 
0866 3174 135$: SETBIT #uCcB$v_XxE IRI TED.= : Indicate unit is initialized 
308 175 CBSwW VBEVSTS(R ) 3 
68 178 SETIPL UCBSB- ay} 3 Sync access $e UCB and CDB 
OA 00DB8 CS’ sEB oof 17 BLBS UCBS$B_XE_P BAIRD) 1808 ; Br if NOT a PROMISCUOUS user 
4 0180 ¢5 00 4 17 MOVL ¥ BSL" XE-CDB(R5),R 3; Get COB Hn. 
0224 ¢46 55 00 8 y 17 MOVL -CDB_L ~PRAUSERIRG) 3 Store promiscuous user's address | 
7E 181 : Pre-allocate all needed receive buffers, if the CDB is not initialized | 
7E 31 § ; The buffers are immediately deallocated, but this pre-allocation will a 
7E 3185 ; the pool to grow if necessary! This must be done here, before we run on the 
43 : i 3; interrupt stack. 
7E 31 6 {40$: PUSH R3 ; Save R3, R4 
51 00D6 C5 Hs 1 31 MOVZWL UcBSw. XE_BSZ(R5),R1 > Get size of receive buffer 
54 00D2 C5 C 6 3188 MOVZ2WL UCBSW"XE"HBQ(R5) ,R4 : Get device buffer quota 
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PERATION FOT 'S-SEP=198e 00:19:25 LDRIVER.SREDNEDRIVER.MaR:1 29° ($5), 


R1,R4 
R4 


= (SP) 
st |} pacaaaaabtms 
0$ 


R1. IRP$W_SIZE(R2) 
SOYNSC CRB. IRPSE 


R4,145$ 
(SP)+,RO0 


“ee 
150$ 


ADD_MULTI 
RO TODS 


NMASC_STATE_ON EQ 0 
NMASC-STATE-OFF EQ 1 


UCBSB_XE_PRM(R5) 
CDB_L-PRAUSER(R4 


UCBSB_FIPL(RS) 
ADD_MOLTI 


“TYPE(R2S : $ 


Compute number of buffers to allocate 
Plus one extra 


Allocate the memory 

Br on error 

Save size of buffer 

et structure type 
Save buffer address 

Loop if more to allocate 


; Get buffer address 
; Br if end of List 
; Deallocate the block 


Try for more 
Restore R35, R4 


Compile a new multicast address List 
Br if all okay 


Br if NOT a PROMISCUOUS user 
Else, clear the PROMISCUOUS user addr 
Indicate unit is not initialized 


Restore quota 

--and byte Limit 

Indicate bad multicast address 
Return in error 


: Change mode request - might have to reset multicast address List 


UCBSV_XE_INITED EQ 0 


UEBSU_DEGSTS (RS). 1858 ; Br if unit inited 


Else, success 


Sync access to UCB and CDB 
Compile global multicast address list 
rror 


RO, T70$ ; Br ife 
XE QF CV MULTI, IRPSB_XE_FUNC (RS) ; Set function request 


ueue packet to driver 


NER IYER = VAX/VMS DEUNA/DELUA Driver 16-$ ats 9 98: 3: 3% YOM VeR. ek o V04-00 
SETMODE_FDT = SET MODE 1/0 OPERATION FDOT -$ 1984 DRIVER SRE SXEDRIVER.MAR: 1 
F 3 
: gi 3; Take quota subroutine 
: 5 : Calculate buffer quota and check against user's quota 
F $ : Inputs: R7 = Scratch 
F } : Rg = Scratch 
F 3 RS = UCB address 
F 40 ; R4 = PCB address 
Ht | 
Sr rk : Outputs: R7 = Quota taken 
F 44; Re = JIB address 
or 45 ; R5 = UCB address 
O8F rf 5 R4 = PCB address 
+H rf 4 3 RO = Status 
pore $3 : R1,R2 are destroyed. 
pare 2) : Implicit outputs: 
O8F5 3g : BR to ABORTIO if quota is exceeded. 
Bs ee 
Sere 56 TA TAKE_QUOTA 
50 D4 pare 5 LRL 3; Assume failure 
0006 ¢S) — B6C«#O BF 58 INCW UCBSW_XE_BSZ(R5) ; Round buffer size to even value 
0006 ¢5~—s«01 AA O8FB 59 ICwW a. pycesu-x XE BSziR3} 3 vee 
51 0005 CS 9A 3200 60 MOVZBL BFACRS),R1 3; Get number of receive buffers 
52 42 a5 3¢ 0905 61 MOVZWL UCB tty ~DEVBUF SIZ (A R5),R2 ; Get buffer size 
51 52 4 0909 $6 MULL R2,R1- 3; Get needed quota 
C 090C 6 MOVZWL R1,R7 3; Copy quota 
57 51 D1 QO90F 64 CMPL R1,R7 : Overflow? 
30 «1 o9t2 65 BNEG 116$ : Br if yes - error 
7E 24 04 OD 914 66 MOVL PCBSL gi bay: -(SP) ; Save clrrent PCB status ; 
at 67 SETBIT #PCBSU_SSRWAIT,- 3; Do not go into a resource wait 
yt 68 PCBSL_STS(R4) : just, © check the quota 
53 DD 091D $99 PUSHL R3 3; Save R 
weeeeadh sens bos oy 4 seateatens : Check’ quo 3 
24 AG 43 4 $9 8 ie MOVL (SP)+, PCBSL_STS(R4) : Restore previous PCB status 
02 £8 092C 327 BLBS RO, 50$ : Br if success 
10 «11 09 f rs BRB 80$ : Else, return error 
eee 4 oO 931 6 50$ MOVL PCBSL_JIB(R4) ,R6 ; Get JIB address 
20 he a 936 7 SUBL R7, JIBSL_BYTCNT(R6) 3; Adjust quota 
7 § OSA 78 SUBL By og LOS BYTLACRG) 3 ..and byte Limit 
$8 1 A O93E 79 MOVZBL #1,R 3; Indicate success 
1 D4 0941 0 80$ CLRL Ro 3; No error return 
05 Ber 1 90$ RSB 
50 14 9A 0944 j 110$:  MOVZBL #SS$_BADPARAM,RO 3; Setup error sede 
51 0451 BF 3C 0947 4 MOVZWL #NMASC_PCLI_BFN,R1 : Assume BAD BFN 
F5 «611+ «=094C 5 BRB 90$ ; Return error 
See 358 
94E 8 ; CHECK_QUOTA - check SHARED unit's quota 
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SETMODE_FDT = SET MODE 1/0 OPERATION FDT 5=SEP-1984 :19:2 DRIVER. SRCIXEDRIVER.MAR; 1 (26) | 
94E y 
94 0 ; Inputs: R9 = serarch 
94 91 ; R? = Original UCB address 
94E 35 : R5 = UCB address 
94E 935; R4 = PCB address 
cae 
94E 38 3; Outputs: R9 = Quota taken 
94E 97 ; R7 = Original UCB address 
94E 3298 ; R5 = UCB address 
94E 99 ; R4 = PCB address | 
ate 9 3 RO = Status 
43 86 3 R1,R2 are destroyed. 
a 
O9ce 0 CHECK_QUOTA: | 
094E 06 PUSHQ R6 3 Save R6, R7 
55 dD 0951 0 PUSHL R5 : Save UCB address 
55 57 p00 0953 08 MOVL R7,R5 : Copy original UCB address | 
9D 8 328 09 BSBB TAKE_QUOTA ; Charge quota to user 
55 BED 95 10 POPL R 3; Restore UCB address 
16 50 €9 0958 11 BLBC RO,90$ ; Br if error 
59 57 0 095E \¢ MOVL R7,R 3; Copy quota taken 
51 0175 65 3C 0961 331 MOVZ2WL UCBS$W_XE_TOTQUO(RS).R1 ; Get total quota | 
51 59 ge boce 14 L RI ; Compute new total 
2 51 C 0969 15 MOVZWL R1,R0 ; Copy quota 
0 51 #4~»D1 096C 16 L R1,R0 3; Overflow? 
07 (12 O96F 1 a6 -1168 : Br if yes. error | 
50 01 QA 0971 18 MOVZBL #1,R0 ; Else, return success 
0974 19 90S: POPQ R6 3; Retore R6, R7 | 
05 9444 9 RSB 3; Return to caller 
20 A6 «659 = «C0 378 § 110$: ADOL R9, JIBSL_BYTCNT(R6) ; Restore quota 
24 Ab 59 ¢cO O97Cc ADDL RO, JIBSL_BYTLM(R6) 3 .-and byte Limit 
50 1¢ 3C 0980 ; 4 MOVZWL #S$$_EXQ00TA,RO 3; Return bad quota 
51 D4 0983 5 CLRL R1 ; No parameter return 
—ED 11 a4 358 BRB 90$ ; Exit with error 
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5 -SBTTL SHR_UCB = CREATE SHARED UCB 

SHR_UCB = CREATE SHARED UCB 

Functional description: 

This subroutine creates a shared UCB if this is the first SHARED user of the 


particular protocol type. Else, the already created SHARED UCB is found and 
a shared data structure is added to the List of shared users of that protocol 


ses" sa 


type. 
Inputs: 
R3 = IRP address 
R4 = PCB address 
R5 = UCB address 
R6 = CCB address 
= Function code 
AP = Address of first function-dependent Q10 parameter 
IPL = FIPL 
Outputs: 


RO = Status return for request 

Ri = Bad parameter code (if bad parameter error code) 
R2,R7 are destroyed. 

ALC other registers are preserved. 


DDD PPPs Be BB EEE PANINI OS 


FUN OOODNAU EWN O ODNAUES WN "OO OONOULSWNO0 -—P 


IPL = ASTDEL 
HR_UCB:: ; Setup shared protocol UCB 
0300 8F 68 PUSHR #*M<RB,R9> ; Save coatetors 
Q0000000'GF 16 6 JSB G*SCHSIOLOCKW ; Lock 1/0 data base for write access 
57 §655 BP 65 MOVL 3; Save UCB address 
50 21c4 BF 3C 66 MOVZWL #5$$_DUPUNIT,RO : Assume 2 channels assigned to UCB 
5C AS 1 61 6 CMPW #1 uCBSW_REFC(RS) 3; Is there only one reference to UCB? 
12 $8 BNEQ 3; Br if not, error (more than 1 channel) 
58 0004 C 9A 6 MOVZBL UCBSB_XE_ACC(RS) RB 3 Save access mode 
£0 70 BBS #uU UXE sis AQF = . Br if we are already the SHARED UCB 
29 68 AS 71 UCBSW"DEVSTS(R5),108 
D ie PUSHL R4 ; Save PCB address 
54 p80 ee 9 7 MOVL UCBSL_XE_CDB(R5) ,R4 ; Get CDB address 
51 O0CA C 98 74 MOVW  UCBSW7XE-PROTYP(RS).R1 : Get protocol type 
2747 98 75 BSBW MATCH_PROTYP 3; Try to match protocol type 
4 BED 98 7 POPL : Restore PCB address 
14 9 E 988 7 BLBS R 198 ; Br if foun 
5 D ya] 7 VL R ; Else, get back old UCB address | 
ac AS Da 09C 7 CLRL ——« UCBSL_PID(RS) : Make this UCB shareable | 
50 C AS 44 9C4 0 Vv UCBSL_ORB(R5) ,RO ; Get the ORB address 
60 D4 09C8 1 CLRL  ORBSLOWNER(RO) : clear owner UIC as well 
00C4 D4 O9CA CLRL pcos XE_DEFUSR(RS) 3 Cleor default user 
: AB O9C BIS #UCBSA_XE_ SHARE ,- : Indicate that UCB is in SHARED mode 
68 A 90 , UCBSW~DEUSTS(R5) : 


seus 


00000000' 
1A 

50 Oise 
51 080 
20 Al 
24 Al 
55 
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So 
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= VAX/VMS 
SHR_UCB = 
9D 
9D 
4 9D 
1 9D 
3C 09D 
Dd 9D 
4 
3 9E 
3 9E 
Be 
DD oF 
16 O9F3 
sepy 9F9 
f SFC 
% Be 
% Mh 
i i 
; 
1 QA16 
QA19 
QA19 
QA19 
pal? 
QA1 
7C QA19 
A1B 
BO OA1B 
pale 
D6 OAI 
A 
90 OA 
A 
DO OA 
A 
BO 0A27 
A2B 
D A 
8 4 
A 
9A OA 
D A 
D A 
F ASF 
A4 
BO QA4 
RG 
AG 
E9 OA4 
A49 
A4 
‘A 
A 
A5A 
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CREATE SHARED UCB o73Ep=158e bb:15:23 LORIVER.SReIREDRIveR.man;1 29° (59 
§ 3; Allocate a share data structure and Link it in 
‘ 10S: CMPB 9s #NMASC_ACC_LIM,R8 : Js she, new user a Limited user? 
EQL 20$ : es - okay 
MOVZWL #SS$_DEVALLOC,RO ; Sous ‘protocol " slready allocated 
? TST yeast. XE_DEFUSR(RS) : Is s there already a default user? 
: - error 
95 20$ BSBW cHece PARAM 3 Breck out all parameters 
94 LBC RO,25 ; Br on error 
95 BSBW CHECK QUOTA : check ou our quota 
9 BLBC RO 3 
9 MOVZBL #SAR_C_LENGTH,RI ; Get size of structure to allocate 
9 PUSHL R 3 Save IRP address 
9 JSB G*EXESALLOCBUF 3; Allocate buffer, reset IPL to ASTDEL 
400 POPL R3 3; Restore IRP address 
tt BLBS RO, 30$ ; Br if success 
4 ¢ MOVZWL #S5$_INSFMEM,RO 3; Else, return error reason 
40 OVL PcBst J1BCRGS RI : Get JIB address 
404 ADDL RO, JIBSL_BYTCNT(R1) ; Restore quota 
405 ADDL R9, JIBSL_BYTLM(R1) 3; ..and byte Limit 
rt ses: CLRL R1 3 No bad parameter code 
407 25$: MOVL R7,R5 3 Get back the OLD uce address 
rts BRW 80$ 3; Exit with error 
4\9 3 Initialize shared (SHR) data structure 
aig $0$: ASSUME SHR_L_QFL EQ 0 
41 ASSUME SHR L “QBL EQ SHR_L_QFL+4 
414 CLRQ CR Zero LINK pointers 
415 ASSUME SHR M SIZE EQ SHR_L “opted 
218 MOVW 3; Save size 
41 ASSUME SHR_B_ TYPE EQ SHR_W_ S1ZE+2, 
418 INCL R Filled by EXESALLOCBUF routine 
419 ASSUME SHR_B STS EQ SHR B TYPE+i 
420 MOVB #SHR_STS_M_INITEBD,(R2)+ ; Initialize SHR status 
421 ASSUME SHR_C_PIB EQ SHR_B STS s+1" 
4 ; MOVL IRPSL_PID(R3) , (R2 ; Save users PID and CHAN for 
4 ASSUME SHR_W_CHAN EQ SHR_L D+ 
424 IRPSW~CHAN(R3) , (R2)F 3. for future lookups 
425 ASSUME SHR G-DEST EQ SHR W a 
4 § L UCBSG_XE_DES(R7),(TR2)+ ; Save destination address 
4 UCB$G_XE DES+4(R?) (R2)+ 
4 : ASSUME SHR _Q-QUEUES EQ SHR_G “vestes 
4 MOVZBL #SHR_C QUEUES, 3; Get number of queues in in -structure 
430 40S: MOVAL (R2)7(R2)+ 3 Set faruad Link poin 
431 MOVL -4(R2), tR2)+ : pet beckuerd Link rte ma ol 
4 § SOBGTR ro WL more Listheads 
4 ASSUME SHR W_QUOTA EQ SHR_Q aaueies*< *SHR_C_QUEUES> 
r : MOVW R9, TR2)+ Initialize quota 
4 § ASSUME UCBSV_XE {HITED EQ 9 
4 BLBC UCBSW-DEVSTS(R5) ,50 ; Br if UCB not initialized 
4 ADDW R9,UCB$W_XE_QUOTA(R5) =; Add to the current quota 
4 ADDW R9 ,.UCBSW_XE_TOTQUO(R5) : and the total quota 
44 BRB 3 § ; Continue 
441 50$: MOVW -UCBSW_XE_QUOTA(RS) Set current quota 
442 MOVW Rg. UCB$W"XE-TOTQUO(RS) : and total quota 


sets 
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#SHR_C_LENGTH,R2 
PNAS “hee _LIA,R8 


Re ,UCBSL_XE_DEFUSR(R5) 


; Backup to beginning of structure 
: as ie for limited use? 
00c4 C5 ; Else, aa default user address 
ee inking onto List 

: n 


009C¢ DS (R2) ,@UCB$Q_XE_SHARE+4(R Rb) k user into shored user list | 
UCBSW_REFC(RS)~ ; imergnent, § the over count on the 
R5,R7 ; Was this th the vor iginel gg 
70$§ ; Br if YES = no more work to do 
UCBSW_REFC (RS) ; Else, increment REFC (for *SpassGn) 
R5,IRP$L_UCB(R3) ; Return new UCB address 
R5,CCBSL_UCB(R6) : .in CCB also. 
#*M<RS,R5> : Save IRP, rea! UCB address 
R7,R5 : Copy old UCB addres | 
5 UCBSW_REFC(RS) ; Decrement the reference count 
00000000 ' GF G*IOCSCREDIT_UCB ; Restore UCB quota to JIB 
00000000 ' GF Sencne ats mee : Delete the old UCB 
ss “M<R3,R5> ; Restore IRP, UCB address 
50 1 S*#SS$_NORMAL ,RO ; Return success : 
0300 8F M<R8, ie ; Restore Pogseteens R4 is PCB address 
08 #*M<RO,R1,R3> ; Save IRP address, status return 
00000000' GF G"SCHS{OUNLOCK ; Unlock 1/0 data base | 
0B #*M<RO,R1,R3> ; Restore IRP address, status return 


Return to caller 
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C 
H RED USERS PARAMET "Bree b=19 DRIVER. SRCIXEDRIVER.MAR; 1 (28) 
: -SBTTL CHECK PARAM = CHECK SHARED USERS PARAMETERS 
CHECK_PARAM = CHECK SHARED USERS PARAMETERS 
; Functional description: 
Validate all parameters between the requesting SHARED user and the old 
existing SHARED user to make sure that are the same. 


UCB address of existing shared user 


: Inputs: 


OOo 
>> 
>> 
o9 
Fe et et et ek et det ek de ee ee ae ee 


= 
R7 = UCB address of new shared user 
R8 = Protocol access mode 
QAAD 
AAD Outputs: 
AAD RO = Status of request : 
~~ Ri = Bad parameter code if validation failed 
OAAD i-- 
QAAD 
QAAD CHECK_PARAM: ; Check user parameters 
56 DD OQOAAD PUSH R6 ; Save registers 
50 0006 C5 9E OAAF MOVAB UCBSB_XE_SHRPRM(R5),RO ; Get address of current parameters 
56 0006 C7 9E OAB4S MOVAB UCB$B_XE_SHRPRM(R7),R6 ; Get address of new parameters 
52 0B 9A OAB? MOVZBL #UCBST_XE_SHRPRM,R2 3; Set size of parameter List 
ert! 132 : Validate all user settable paremeters except for Physical address 
66 60 91 OABC 3497 fos: CMPB ss (RO) , (RO) : Match? 
2B 12 OABF 3498 BNEQ ; Br if no 
86 80 90 OAC1 3499 MOVB (RO)+, (R6)+ 3; Store current value in UCB 
> 52 - 5 pace 4 SOBGTR R2,10$ 3; Loop if more to check 
pace 206 : NOW, check if user has given a hardware physical address. 
OAC? 3504 ; RO = Address of parameters in UCB 
ace oh2 3 R6 = Address of parameters in CDB 
AC7 209 ‘ ASSUME CDB_G_PHA EQ CDB_B_ILP+1 
AC? 3508 ASSUME UCBSG"XE_PHA EQ OCB$B_XE_ILP+1 ; : 
66 «FFFFFFFS 8F D1 OAC? 3509 CMPL) = #= 1, (R6) ; Is user physical address defined? 
08 12 OAC 519 BNEQ ; Br if yes 
04 AG «6OFFFF 8F)~ = =OB1Ss(OAD 511 CMPW #-1,4(R6) ; Is user physical address defined? 
oF 13 OAD 218 BEQL 0 ; Br if not 
51 0804 8F 3C OAD 513 208: MOVZWL #NMASC_PCLI_PHA,R1 ; Assume bad physical address 
86 80 Di OADD 3514 CMPL (RO)+, TR6)+ : Physical address match?? 
10 12 OAE 515 BNEQ 8 ; Br if no 
86 80 Bi E 218 CMPW (RO)+, (R6)+ : Still match?? 
0B 12 ~ 3} BNEQ 80$ ; Br if no 
ne? 315 : If this is the shared default user, then set the multicast address list. 
30 OQAE7 3 1 $0$: BSBW sft MULTIN ; Set new multicast address List 
11 < ¢ BRB 1008 z Exit 
Dae 4 : Error on parameter validation 
AEC 3525; 


dD 4 
XKEDR R = VAX/VMS DEUNA/DELUA -SEP-1984 AX/VMS Macro V04-00 P 75 
raat CHECK_PARAM = CHECK SHA et AH USERS PARAMET | -SEP=-1 1382 8: 6: 34 YORIVER. SREIXEDRIVER.MAR: 1 yt meses 
51 Frogs CF42 HS § 70$: MOVZWL BAD PARAM 1 Sala ; Return parameter code 
14 A iF MOVZBL $*#SS$_BABPARAM,R : Return bad parameter error 
56 ath 258 100$: oe 56 ; Restore registers 
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Vv SET_MULTIN = SET NEW MULTICAST ADDRESS L 5-SEP=1984 00:19:23 (CDRIVER.SRCIXEDRIVER.MAR; 1 (29) | 

Ars a -SBTTL SET_MULTIN = SET NEW MULTICAST ADDRESS LIST IN UCB 

AE : SET_MULTIN = SET NEW MULTICAST ADDRESS LIST IN UCB 

ary : Functional description: 

ONS : Copy the multicast address list from the old UCB to the new UCB. 

pare ; This operation is only done for the SHARED DEFAULT user of the PROTOCOL. 

AF9 : Inputs: 

AF9 3 R5 = UCB address of existing shared user 

AF9 3 R7 = UCB address of new shared user 

pare 3 R8& = Protocol access mode 


DDS BBS BB BB IAI ANNI at 


oO 

> 

ie | 

oOo 
PV PV PV PVP SUSU SOSUSVSUSUSUS SUSU USS USS ISVS 
OOD NA NE WIN  O OONOAUE WI OOONOUE WN Mm 


OAF9 Outputs: 
RO = Always success 
OAF9 ALL other are preserved. 
OAF9 
OAF9 -- 
AF9 
AF9 SET_MULTIN: ; Set new multicast List 
58 01 91 OAF9 CMPB #NMASC_ACC_SHR,R8 ; Is this the shared default user? 
13. 12 OAFC BNEQ  50$ : Br if not 
3E 8B OAFE PUSHR #*M<R1,R2,R3,R4,R5> ;_ Save registers : 
00E9 cS) =600E9 C7 =63C)—=— 28S (B00 MOVC3 #6*MAX_C_MLT UCB$G_XE_MULTI(R7), - ; Copy multicast List 
0808 UCB$G_RE-MULTI(RS) ; 
3E BA 0808 POPR #*M<RT,R2,R3,R4,R5> ; Restore registers : 
O0E7 C7 90 OBOA MOVB UCB$B_XE_MULTI(R7),- ; Copy the number of valid addresses 
OOE7 C5 OBOE UCB$B_XE_MULTI(RS) ; 
50 01 9A 0B11 50$: MOVZBL #SS$_RORMAL ,RO ; Return success 
05 0B14 RSB ; Return to caller 
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-SBTTL SENSEMODE_FDT = SENSEMODE 1/0 FDT PROCESSING 
SENSEMODE FDOT = SENSEMODE 1/0 FDT PROCESSING 
Functional description: 


om 
2 
‘> 
~ 
“eo 
mm 
2 
“or 
m> 


S D.PVUPV PVP PUPP 


Process read status and read counters requests. 
The Q10 parameters for SENSEMODE are: 


Pil = Optional address of quadword buffer 
P2 = Optional address of buffer descriptor for extended characteristics 


The SUBFUNCTION modifiers are as follows: 


1) READ PARAMETERS == NO MODIFIER 
This function reads the DEUNA/DELUA parameters and returns them to the 
user. 


2) READ COUNTERS -- IOSM_RD_COUNT SET. 
This function reads the BEUNA/DELUA counters and returns them to the 
user. 


CLEAR COUNTERS == IOSM_CLR_COUNT SET. 
This modifier must be Used with the read counters modifier to clear 
the counters as they are read. 


OOD NAUNE WN OS OD NAUSEA OO ODNAUES WN (OOONOUEW 


Be Se Se Se Se Ge Ge Ge Se Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Sse Ge Sse Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Se Ge Se Ge Ge Se Sse Ge Sees 
> 


DOO000 0000000000909 000009 090909 SII NINN NI NNIOOOAOAOO 


Se” tae bee be Yale al al sl shal ahah ah eh eh ah ah eh sh th sh sb sbeebs hd esbealealealea lee e eww 


Inputs: 

R3 = IRP address 
R4 = PCB address 
RS = UCB address 
R6 = CCB address 
R7 = Function code 
AP = Address of first function-dependent Q10 parameter 
IPL = ASTDEL 

601 

oH Outputs: 

ope RO = Status return of SENSEMODE request 

$06 R1,R2,R6,R7 are destroyed. 

6 

3 = 

610 SENSEMODE _FDT: ; SENSE MODE 1/0 FDT erecess ing 

50 0084 fF 3C 611 MOVZUL. #Sss pevoreL jee. RO ; Assume unit if offlin 
04 «éE le BBC a hy ONL IWE ; Br if unit not pot phen 
1 64 AS 61 Ww STStRS). 158 3 : 2 
57 20 AS 80 614 MOV id FUNCCRSS (7 ; Get entire function code 
57 09 €0 oi? BBS #1O$V—CTRL,R : Br if Line request 
$17 : Check if read circuit counters 
03 57 O08 €1 $19 : BBC #10$V_RD_COUNT,R7,3$ ; Br if not read circuit counters 
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Nara SENSEMODE_FDT = SENSEMODE 1/0 FDT PROCES Se 7 8:78:38 LORIVER. SREIREDRIVER.MAR: 1 (38) 
00DD 1 B 3620 BRW READ_CIRC_CTR ; Else, get the circuit counters 
01 A F 621 3$: MOVZBL S*#SS$_NORMAL,RO ; Return success 
51 44 A5 0D 6 ¢ MOVL UCBSL_BEVDEPEND(RS).R1 ; Get device dependent information 
00000000'GF 1 H ? 7 JMP G*EXESFINISHIO 3; Complete the I/0 request 
3457 O08 €1 OB ? ? 5 5$: BBC #10$V_RD_COUNT,R7,20$ ; Br if not read counters 
: ; ; Read counters - modifier RD_COUNT 
028F 0 629 BSBW CHECK _P2 ; Check P2 buffer 
30 14 A te 630 MOVZBL S$*#SS$_BADPARAM,RO ; Assume zero length butter 
38 A . § p8¢ 631 MOVW R1 IRPSW_XE_USERSIZ(R3) ; Save user size of P2 buffer 
es 49 36 é BEQL «=s«15$ : Br if none 
51 6A 8F 9A 0B4B 36 MOVZBL #LINE_CNT_BUFSIZ- ; Get size of counter P2 buffer 
OB4F 3634 *+LINE_CTR BUFSIZ,R1 : 
0289 30 OB4F 3635 BSBW ALLOC-P2B0F ; Allocate a buffer 
18 50 — «EO $838 6 § BLBC RO ; Br if error 
51 2c AS) =O «0S 63 MOVL RPSL SVAPTE(R3),R1 3; Get system P2 buffer addr 
04 a1 52 00 0859 3638 MOVL  R2,P2B_L_BUFFER(R1) : Save user's P2 buffer addr 
3a AS «(01)Ss BO s(0BSD «(3639 MOVW  § S“#SSS"NORMAL, IRPSW_XE_STATUS(R3) ; Assume success 
21 a3 0A) «90-0861 3640 MOVB “#XE_FC_V_RDCNTS, IRPSB_XE_FUNC(R3) ; Assume Read counts 
04 57 OA 1 0865 3641 BBC #IO$SV~CLR_COUNT,R?,10$ ~; Gr if not clear counts 
21 a3 0B 90 0869 64g MOVB  S“#XE-FC_Q_RCCNTS, IRP$B_XE_FUNC(R3) ; Else, Read and Clear 
0088 1 0B6D 3643 10$: BRW QUEPKT 3; Gueue packet to driver 
F810 1 pa? ote 15$: BRW ABORTIO ; Abort the 1/0 request 
oa? or8 ; Read parameters - no modifier 
44 A384 0B73 3648 208: CLRW  IRPSW_XE_P2S1Z(R3) : No return data 
54 0180 C5 0 0876 3649 MOVL UCBSL_XE_CDB(R5) ,R4 : Get CDB address 
51 08 C 0878 3650 MOVZ2WL $*#8,R1 ; Size of P1 buffer if present 
024E 0 OB7E 3651 BSBW CHECK_BUFS : Check P1 and P2 buffers 
50 01 9A 0B81 $36 MOVZBL S$*#SS$_NORMAL,RO ; Assume success 
3a AS «50S BO (0BB4 «(365 MOVW RO, IRPSW_XE_STATUS(R3) ; iat 
38 AS) 651 BO 0888 3654 MOVW R1,IRPSW_XE_USERSIZ(R3) ; Save user P2 buffer length 
47 13 0BBC 3655 BEQL 408 : Br if no P2 buffer present | 
40 A352 8 088 657 MOVL R2,IRP$L_XE_P2BUF(R3) ; Save user P2 buffer address 
223F 089 658 BSBW RETURN P ; Return the P2 parameters 
44 a3 50 60 94 659 MOV RO, IRPSW_XE_P2SIZ(R3) ; Set size of return data | 
54 05 99 3660 TSTL RG : Is CDB present? 
2c 13 0898 3661 BEQL 30$ : Br if no - ghey to return now 
51 50 OA C1 0B9D O66 ADOL3) = =$*#10,R0,R1 3; Check if default physical 
pent 66 ; address can fit 
38 AS O51~—Ctsé«@wW® Al 664 CMPW R1, IRP$SW_XE_USERSIZ(R3) ; Is buffer big enough for 
rene 665 ; default physical address? 
. 6 ry} 66 BGTRU $ ; Br if no ‘ 
44 AS. OA AO A 66 ADDW #10, IRPS$W_XE_P2SIZ(R3) ; Add DPA to return buffer size 
52 4003 50 (C1 66 ADDL3 RO, IRPSL_RE_P2BUF (R3) ,R2 : Get buffer address 
66 3 past end of return data 
82 00061488 8F 00 670 MOVL #<6816>+NMASC_PCLI_HWA!-; Store parameter code + size 
671 PRM_TYP_M_STRING,(R2)+ ; ..indicate string parameter 
82 0368 C6 «io 7 ore MOVL CDB-G_HOATR4) (RO)+ ; Store Default Physical Address 
82 6D C4 80 BC 673 nov DB~G=HWA+G CRA) , (R2)* pop igs 
3A AS 0601 8F 90 C3 675 $33: MOVW #SS$_BUFFEROVE , IRPSW_XE_STATUS(R3) Return partial success 
50 44 AS C C 676 50S: MOVZWL IRPSO XE_P2S1Z(R3) ,RO ; Get size of user return data 
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50 = 50 19 7 BCD 3677 ASHL RO 3; Shift size of buffer return 
50° 3A AS OB ty 678 MOVW TResue KE_STATUS(R3),RO : Get status 
54 b 208 680 40$: TSTL RG 3; Is there a — 
3 1 D 681 BEQL 50$ ; Br if no COB yet! 
52 3C A 0 D9 36 ¢ MOVL [Rest KE_USERBUF(R3),R2 ; Retrieve P1 putier address 
ae DD 36 BEQL 0$ ; Br if none 
62 40 A5 7D DF 3684 MOVQ UCB$B mite styr ds (R2)_; Else, return characteristics 
04 a2 00046 C4 «CB «OBES «3685 BISL  CDB_L“DEVDEPEND(R4S ,4(R25 ; 
51. 00C4 C4 00 OBED 3686 MOVL CDB"L UDEV VDEP END (RG) ERI ; Get device dependent info 
51 44 A C8 OBE 687 50$ BISL UCBSL_-DEVDEPEND(R5),R1 ; ..from UCB a 
00000000'GF 1 ber 6 8 JMP G*EXESF INISHIO 3; Complete the i7o request 
OBF 690 ; 
OBF 691 ; Queue 1/0 request to driver 
OBF 036 : 
OBF8 3693 QuUEPKT: 3; Queue packet to driver 
OBF8 3694 SETIPL UCBSB_FIPL(RS) ; Raise IPL to fork IPL 
00000000 ' GF 16 OBFC 3695 SB G*IOCSINITIATE 3; Intiate the I/0 request 
00000000'GF 17 OCO2 3696 JMP G*EXESQIORE TURN : Lower IPL, and RET 
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. -SBTTL READ_CIRC_CTR = READ THE CIRCUIT COUNTERS 
READ_CIRC_CTR = READ THE CIRCUIT COUNTERS 


Functional description: 


om 


Process read circuit counters request. 
The Q10 parameters for SENSEMODE are: 
P2 = Address of buffer descriptor for counters 


Inputs: 

R3 = IRP address 

R4 = PCB address 

RS = UCB address 

R6 = CCB address 

R? = Function code and modifier bits 

AP = Address of first function-dependent Q10 parameter 
Outputs: 


RO = Status return of SENSEMODE request 
R1,R2,R6,R7 are destroyed. 
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ABORT_IRP: 
BRw 
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F778 = 31 ABORTIO ; Abort the I/0 request 
READ_CIRC_CTR: ; Read the circuit counters 
01c3 30 BSBw CHECK_P2 : Check the P2 buffer 
50 14 QA E MOVZBL S*#SS$_BADPARAM,RO ; Assume zero Length buffer 
38 AS 0 651—Ci*iB 1 MOVW R1, IRPSW_XE_USERSIZ(R3) ; Save size of user P2 buffer 
ake 2 BEQL ABORT_IRP ; Br if no buffer 
51 20 9A MOVZBL #CIRC_CTR BUFSIZ,R1 ; Get size of system P2 buffer 
O1EE 30 A BSBW ALLOC” P2B0F 3 Allocate the buffer 
8 50 =€9 D BLBC RO, ABORT_IRP ; Br if error 
51 CAS 00 0 MOVL RPSL SVAPTE(R3) .R1 ; Get system P2 buffer address 
04 a1 52 00 4 MOVL  R2,P2B8_L_BUFFER(R1) : Save user P2 buffer address 
xa 8 8 MOVL P 6_L_POINTER(R1) ,R2 ; Get ogeress of data portion of buffer 
PUSHQ R ; Save RB, RI 
; 3; Get the counters kept by the driver 
58 F547 CF 9€ § MOVAB CIRC_CTR,R8 ; Get address of counter format table 
51 9A MOVZBL #CIRC_CTR SIZE RI > Get number of entries in table 
50 3 3 3 20$: MOVZWL (R8B)+~RO ; Get counter code 
82 : MOVW RO, (RE)+ : Return counter type code 
88 ¢ C MOVZWL (RB)+,R9 : Get offset word 
59 C F ADDL RS, ; Point to counter in UCB. 
50 50 03 OC EF $ EXTZV #NMASV_CNT_MAP,#3,RO,RO ; Get width + bit map indicator 
CASE R0 TYPE=B,CIMIf=42,<- — ; Dispatch on width and bit map 
7 30$,- ; 8 bit counter 
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R = READ THE CIRCUIT COUNTER -SEP-1984 19:23 DRIVER. SRCIXEDRIVER.MAR; 1 
755 30$, 3 § bit counter + bit map 

7 § $,- ; 16 bit counter 

7 $,- 3 18 bit counter + bit map 

f 8 $> 3; 32 bit counter 

768 30$: BUG_CHECK NOBUFPCKT,FATAL ; ALL others, fatal error 

166 3 32 BIT counter 

764 35$: MOVW (R2)+ ; Store counter in buffer 

765 BC nosy CLR_COUNT,R7,40$ ; Br if not clear counter operation 
4 § CLRW : Else, clear the counter as 

708 3 16 BIT counter 

16 dos MOVW >, (R2)+ ; Store counter in buffer 

771 BBC $v V_CLR_COUNT,R7,50$ ; Br if not clear counter operation 
77 CLRW ) 3; Else, clear the counter as 

773 50$ SOBGTR 20$ ; Loop if more 

774 POPQ 3; Restore R8, RI 

775 MOVZBL $S$_NORMAL ,R1 3; Assume success 

£76 CMPW W_RE USERSIZ(R3),- : Is user's buffer big enough? 
77 Psu “BCAT(R3) 3 

778 BGEQU ; Br if yes 

779 MOVW su E_USERSIZ(R3).- ; Else, et size to minimum 

780 P$wW aca T(R3) 3; Of both 

781 MOVW S$_BUuFFEROVF,R1 3; Set partial success 

ree 60S: MOVL P$Q BENT T=2(R$) ,RO ; Get size of buffer returned in 
78 3; «high word of RO 

784 MOVW ae RO ; Get status return 

785 MOVL CBSL DEVDEPEND(RS),R1 ; Get device dependent info 

786 JMP BSE XESFINISHI 10 : Complete the 1/0 request 
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788 -SBTTL DIAGNOSE_FDT = DIAGNOSTIC OPERATION FDT DISPATCH ROUTINE 
DIAGNOSE _FDT = DIAGNOSTIC FDT PROCESSING 
Functional description: 


This is the fdt routine for diagnostic functions. 
There are several functions based on function code passed in P3 of the 
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parameter List. 


RO-R2,R6 are destroyed. 


sireomemtene + “ie DIAGNOSE FDT processing 
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be ag 
(97 3797: 
344 a 3; The Q10 parameters for DIAGNODE are: 
C97 3800 : Pl = Sot ionet address of a diagnostic buffer 
C97 01 ; PS Bet tonet Length of the diagnostic buffer 
C97 02; P agnost function code 
4324 3 : ion onal address of DEUNA/DELUA micro-processor internal address 
ato, HOE 
3 Inputs: 
0C97 07 ; fe 
0C97 08 ; R3 = IRP ADDRESS 
0C97 09 ; R4 = PCB ADDRESS 
0C97 3 R5 = UCB ADDRESS 
0Cc97 3 R6 = CCB ADDRESS 
0C97 : R7 = FUNCTION CODE 
Bc 4 3 AP = ADDRESS OF THE FIRST Q10 PARAMETER 
o¢ , ; IPL = ASTDEL 
0C97 : Outputs: 
0C97 : _— 
0C97 2 R3 = IRP ADDRESS 
0C97 3 R4 = PCB ADDRESS 
43 4 : RS = UCB ADDRESS 
be 7 F 
$5 7 ; 
b¢97 , 
O¢ 7 
C97 
ses 
C 
Ag 
CA7 
C 
a 
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¢ A D4 IRPS$L_SVAPTE(R3) ; Set no buffered packet 
BA 7¢ CLRQ IRPSL-MEDIA(R3) ; Reset mode data area 
50 0084 8F 3C MOVZ2WL #SS$ goENOFFLINE .RO 3 Assume unit is offline 
€1 BBC uce$v ont} NE,- : Br if unit not online 
23 64 AS UCBSW VeTs R5),DG_E 
3A AS (0198 MOVZBW SAeSsS N NORMAL , IRPSuY XE _sfatus(Rr3) ; Assume success 
51 O08 AC 9A AB MOVZBL P3(AP)7R1 ; Get Diagnostic function 
CAF SDISPATCH R1,TYPE=8,- : Bistpaten on function code 
re <- 3: function action 
CAF <XESC_DG_LOADMEM LOADMEM>,- ; Load DEUNA/DELUA memory 
CAF <XESC™ 0G “READ MEM READMEM> , -; es DEUNA/DELUA memory 
CAF HES “DG_UPADDR UPADDR>.- ; Load and start micro-processor 
CAF 4 <XESC"DG_WRITEID URITEIDS, -;3 Urite SYSTEM ID parameters 
CAF 4 <XESC"DG-READID READID>,- : Read @ svsien 1D parameters 
CAF 4 <XESC_DG_STOP STOPPR>,- ; Stop xmit and receive process 
CAF 4 <MESC“DG"STEST STEST>,- ; Perfore a self test 
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CAF 45 <KESC_DG_READST READST>,- ; Read port status 
CAF 6 <XESC“DG_ESTEST ESTEST>,- ; Perform a DELUA self test 
7 is <XESC_OG_HALT HALT>,=- ; Halt port (DELUA only) 
CC? 49 ; 
cee 29 3; ALL other functions 
cc? 3 6G_ERR1: 
50 146 9A OCC 5 MOVZBL #SS$_BADPARAM,RO 3; Bad parameter 
F6B6 0s 331 355 22 DG_ERR: BRW ABORTIO ; Abort the 1/0 
CD 36 ; Load DEUNA/DELUA memory 
ccD 28 : Pi = Address of buffer to write micro-code into DEUNA/DELUA. | 
ccd 59 ; P2 = Length of P1 buffer 
Beep 60 ; P4 = Internal DEUNA/DELUA eddress to start loading at | 
cco 61 LOADMEM: 
0190 30 OCCD 66 BSBW CHECK_DGBUFR ; Check buffer for read access 
44 a3 OC ag BO OCDO 386 MOVW P4(APY, IRPS$L_XE YPADR (RS) 3; Save micro-processor address 
EE 44 A 8 OCDS 64 BLBS IRPSL XE _UPABR(R ),DG_ERR1 ; Br if bad address 
21 a3 O 0 OCD9 65 MOVB #XE FC_V—LDMEM, IRP$B_RE_FUNC(R3) ; Set function request 
FFI8 31 4434 $6 BRW QUEPKT ; Queue request to driver 
$33 bes ; Read DEUNA/DELUA memory 
OCEO 3870 : Pl = Address of buffer to read DEUNA/DELUA memory into 
OCEO 3871 ; P2 = Length of P1 buffer 
OCEO 1h : P4 = Internal DEUNA/DELUA address to start reading at 
OCEO 3873 READMEM: 
0192 30 pceg 874 BSBW CHECK_DGBUFW > Check buffer for write access 
44 a3 OC AC BO OCE3 3875 MOVW P4C(APY,IRPSL_XE YPADR (RS) ; Save micro-processor address 
44 a3 £8 OCEB 876 BLBS IRPSL_XE_UPADR(R3),DG_ERR1 ; Br if bad address 
21 a3 OF 90 OCEC 387 MOVB #XE_FC_V“RDMEM, IRP$B_RE_FUNC(R3) ; Set function request 
FFO 31 ocr 143 BRwW QUEPKT 3; Queue request to driver 
Oct Hf t Load and start at micro-processor address 
OCF ase F P1 = unused 
OCF ; : P2 = unused 
aye rt hosent P4 = Internal DEUNA/DELUA address to start at 
44 a3 OCA BO OCF é § ” movw P4(AP), IRP$L_XE_UPADR(R3) ; Save micro-processor address 
CB 44 A 8 OCF8 BLBS IRPSL XE _UPABR(R ),DG_ERR1 ; er if bad address 
21 A3 OF 0 ocr 8 MOVB #XE_FC_VIUPST, IRPSB_XE_FUNC(R3) ; Set function request 
FEFS 1 4 ; BRW QUEPKT 3 Queue request to driver | 
09 31 : Write SYSTEM ID parameters | 
DO 38 : P1 = Address of buffer containing new SYSTEM ID parameters 
D 94 ; P2 = Length of P1 buffer 
D 95 ; P4 = unuse 
D 38 WRITEID: 
0167 0 OD BSBW cuect DGBUFR ; Check buffer for read access 
30 14 A OD 3 38 MOVZBL S$_BADPARAM RO : Assume bad parameter 
32 A 8 81 D 9 CMPW = #8, IRPSW_BCNT (RS) : Is buffer size good? 
DOD 9 BLEQU 1 ; Br if yes 
F671 3 DOF 39 BRw ABORTIO ; Else, abort the 1/0 request 
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21 AS 13 90 OD2A 
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D31 
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9 ¢ 10$: MOVB #XE_FC_V_LDSID, IRPSB_XE FUNC (R3) ; Set function request 
2 = BRw QUEPKT 3; Queue request to driver 
3 5 ; Read SYSTEM ID parameters 
9 : : Pl = pesrepe of puter for reading SYSTEM ID parameters 
9 } 3 Pe = Length of P1 buffe 
9 = unused 
910 READID 
911 BSBW CHECK_DGBU heck buffer for write access 
31g MOVB so XE fc V eRDSID, IRP$B_XE _funeths» ; Set function request 
a , BRw QUE “; Queue request to driver 
aE $ Stop transmit and receive process 
319 : P1 = unused 
318 : P2 = unused 
919 ; P4 = unused 
920 STOPPR: 
921 MOVB #XE_FC_V_STOPPR, IRP$B_XE gh WNC CRS) 3; Set function request 
4 Q BRW QUEPKT | Queue request to driver 
3 4 : Perform a DEUNA/DELUA self test 
926 : P1 = unused 
927 : P2 = unused 
928 P4 = unused 
959 test: 
930 MOVB #XE_FC_V_STEST, IRP$B_XE_FUNC(R3) ; Set function request 
331 BRW QUEPKT ; Queue request to driver 
338 : Read port status 
935 ; P1 = Address of buffer for reading the port status 
339 3 P2 = unused 
937 ; P4 = unused 
938 READST: 
939 MOVZBL #8 : fet size of buffer 
940 BSBW CHECK 0 apet'er for write access 
941 MOVB #xe re. a OREADST, IRP$B_XE * FONECR3) ; Set function request 
2e6 BRW QUEPKT 3 Queue request to driver 
34d : Perform a DELUA extended self test 
946 : P1 = unused 
947 ; P2 = unused 
Bes : P4 = unused 
930 ESTEST: 
95 MOVZBL_ UCB$B_TYPE(R5),R1 
326 SDISPATCH R1, TYPE=B,- ; Dispatch based upon device type 
954 <DT$_DEUNA 10$>,- ; DEUNA = error 
B22 : <DT$"DELUA 20$>,- ; DELUA - ok to do the test 
$8) 108: BRW DG_ERR1 ; Go return bad parameter error 
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21 A3 1A D 959 208: MOVB #XE_FC_V_ESTEST, IRPSB_XE_FUNC(R3) ; Set function t 
FE9O 9 i BRw QUEPKT 3 Queue request to live 
D ; 
. oer ; Halt the DELUA Port 
965 : P1 = unused 
06 308 : P2 = unused 
D6 967 ; P4 = unused 
bes 3969 HALT: 
51 OA AS 90 D6 370 '  MOVB __UCBSB_ TYPECRS) R1 
403 4 SDISPATCH Ri, yPE=B,- ; Dispatch based upon device type 
D6C 3f¢ <DT$S_DEUNA 10$>, ; DEUNA = erro 
+43 are x <DT$_DELUA 20$>,- ; DELUA = ok to do the test 
FF3C OF «531 at 378 10$: BRW DG_ERR1 ; Go return bad parameter error 
21 A3 18 9A OD8B 3978 20S: MOVZBL #XE_FC_V_HALT, IRP$B_XE =FUNC(RS) 3; Set functi t 
FE66 31 ODBF 3979 BRW QUEPKT 3; Queue beauset ts pas Mh ag 
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-SBTTL GET CHAR_BUF = GET P2 CHARACTERISTICS BUFFER 


GET _CHAR_BUF = GET P2 CHARACTERISTICS BUFFER 
Functional description: 


ney~pegee pool. The user's quota is + 
And the non-paged pool buffer is cha 


Inputs: 
R3 = IRP address 
R4 = PCB address 
RS = UCB address 
Outputs: 


RO = status of buffers 
R3-R5 are preserved. 


GET_CHAR_BUF : 
: Check access to P2 buffer and check process's 
10$: MOVL P2(AP),RI 

8 40$ 


R3 
JSB 1) amma ates 
8 RO,158 
MOVZWL ai oft 


PUSHL 
JSB G*EXESBUF QUOPRC 
POPL R 
15$: POPL R 
BLBS RO, 308 
20$: RSB 


; Quota OKAY, allocate buffer and copy info. 

ALLOC. P2BUF 

Tne SVAPTE(R3) ,RO 

#*M<RB_R4 RSD 

m1 tR § Pop : _DATA(RO) 
#*RcR R5>~ 


wR4 
S*a#Ss “NORMAL, RO 


This routine saves the P2 buffer for later use 
The P2 buffer is saved by allocatin the appropr 
C 


by the driver. 
ate amount of eqnery from 
efore the allocation s ia 


rgd against the user's quota. The P 
system buffer address is passed in IRPSL 8 APTE of the IRP. 


; Get characteristics buffer 
buffer quota 


Get address P2 char buf desc 
Br if no P2 buffer 

Save R 

Check access to buffer 

Br if error 

— Length to longword 


Check for buffered quota 
Restore R 

Restore R 

Branch if quota ok 
Return 


egg get Re buffer 

r 

Get P2 he address 
Save patepe *p ree lsters 
Save P2 char buffer 
Restore registers 

Set success 

Return 
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: -SBTTL CHECK_BUFS = CHECK P1 AND P2 BUFFERS FOR WRITE ACCESS 
CHECK_BUFS = CHECK P1 AND P2 BUFFERS FOR WRITE ACCESS 
Functional description: 


~ 
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This routines checks the P1 and P2 buffers for write access if supplied. 
Inputs: 


ize of Pl buffer needed for write access 
RP address 

CB address 
CB address 
unction code 


DDDwDwD 
NWSW 
nhunne 


S 
I 
Pp 
U 
F 


RO is destroyed. 
R1 = Length of P2 buffer (zero if no P2 buffer) 
R2 = Address of P2 buffer in user's process space 


DDFS BB BS EE EAI 


No RETURN on NO ACCESS 
Implicit Outputs: 


406 
tees IRP$V_FUNC bit set in IRPS$W_STS by EXESREADCHK subroutine. 
rth i-- 
406 
4068 CHECK_BUFS: | 
27 10 4069 BSBB CHECK_P1 : Check Pl buffer 
4070 CHECK_P2: 
51 04 4071 CLRL RI Assume no P2 buffer desc 
52 04 AC 00 407 MOVL P2(AP),R2 Get address of P2 desc 
| eo 0 BEQL Br if no P2 
0 IFNORD #8,(R2),ACCESS Br if no access 
6 6 6 0 MOVZWL (RE) ,R1 Get length of buffer 
OD 1 BEQL 10$ ®r if zer 


° 

Get buffer address 

Check write access to buffer 
(no return no access 

Also sets IRPSV_FUNC in IRP 


50 


04 A2 MOVL DSCSA_POINTER(R2) ,RO 
QO0000000'GF 16 


JSB G*EXESREADCHK 
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52 50 00 MOVL RO,R2 Copy buffer address 
05 10$: RSB Return to caller 
50 4 9A ACCESS: MOVZBL S*#SS$_ACCVIO,RO ; Return access violation 
F5 31 BRwW ABORTIO ; Abort the 1/0 request 
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UNA 
HEC 
“ : 7 ine -SBTTL CHECK_P1 = CHECK P1 BUFFER ADDRESS FOR WRITE ACCESS 
+4 Q : : CHECK_P1 = CHECK P1 BUFFER ADDRESS FOR WRITE ACCESS 
+4 : 4 : Functional description: 
DFS 4 38 ; This routine checks the P1 buffer and if okay, the buffer address 
or : Re ; is saved in IRPSL_MEDIA of the IRP. 
SBE S885 £ Inours 
DF £338 : Ri = Size of buffer for write access 
DF8 4099; R3 = IRP address 
DF8 4100 ; R4 = PCB address 
DF 213) 3 RS = UCB address 
4 £198 3 R7 = Function code 
SBep 19s | Ovtuts: 
ODF £198 : RO is destroyed. 
obs 4108 : No RETURN on NO ACCESS. 
44 AB : Implicit Outputs: 
ODES a1i8 : IRPSL_MEDIA(R3) = User P1 buffer address. 
oe aii7 3 IRP$V_FUNC bit set in IRP$W_STS by EXESREADCHK subroutine. 
ODF8 4115 :-- 
SES cen 
38 ASG Ors 4118 “ CLRL —s IRPSL_MEDIA(R3) ; Assume no P1 buffer | 
50 6C 0 Sore 4119 MOVL P1(APY,RO 3; Get address of user buffer 
06 = «1 DFE 4120 BEQL 10 ; Br if none 
00000000 ' GF 16 +34 tis! JSB G*EXESREADCHK 3 oe eccoue to butter. 
: return = no access 
3c a3 50 DO 0OE06 4138 10$: MOVL RO, IRP$L_XE_USERBUF (R3) ; Save Pl buffer address in IRP 
05 OEOA 4124 RSB ; Return to caller 


weer 
re VER 
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IRPSL_SVA 

Inputs: 
" 

Outputs: 
RO 
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2 
LOCATE A PS BUFFER AND C SaSEP=19BG OO:19:35 
-SBTTL ALLOC_P2BUF = ALLOCATE A P2 BUFFER AND CHARGE USER'S QUOTA 
ALLOC_P2BUF = ALLOCATE A P2 BUFFER AND CHARGE USER'S QUOTA 
Functional description: 


The size of 


ize of allocation desired 
RP address 


status of request 
Ri-R5S are preserved. 
Implicit Outputs: 


the allocation, 
be at least 24 bytes in Length. 


AX/VMS Macro V04-00 
DRIVER. SRCIXEDRIVER.MAR; 1 


This reve ies allocates a system buffer and returns the address in the IRP at 
PTE. including buifer header must 


Allocate a non-geose buffer 
Zero length buffer 

Br if yes 

Save registers 

Save original byte squat 
Is vy" ter big enough? 

Br if yes 

Else, set size to minimum 
Add in size of header 
Check for buffered quota 
Branch if quota bad 


Save size to charge user 
Go allocate a buffer 

Br if success 

Pop saved size 

Restore cogtstors 


Return with error code in RO 


IRPSL_SVAPTE(R3) = address of system buffer 
IRP$W_BOFF(R3) = byte count charged to user's process 
s IRP$W_BCNT(R3S) = original byte count requeste 
08 ALL gorse of the P2 buffer header are initialized, except for the 
be user's P2 buffer address. 
e oo 
0B 8 ALLOC_P2BUF: : 
51 05 08 9 TSTL R1 : 
4D «13 0D 0 BEQL 30$ 3 
OE BB OF 1 PUSHR #*M< R2, ins : 
32 a3 51 ~«=BO 0E11 : OVW = RI, MrnPgué NT(R3) : 
oc 33 H 3 Z serau Riss S p2e2Po8 C_LENGTH 3 
31 OC DO OEIA 5 MOVL $4#24-P2B _C_LENGTH,R1 : 
oe 1D § 5$: ADDL2 g0 #P2B_C_CENGTH,R1 : 
00000000'GF 16 0 JSB G*EXESBUFQUOPRC : 
0—E 50 «ED 3 : BLBC RO,10$ ;: 
3 0 : Quota OKAY, allocate buffer and copy info. 
51 OD 9 : ‘ PUSHL 1 ; 
1000008 80 ER (OEST. 17% ares | ROPOS 
SE 04 CO 4 5 ADDL  #4.SP : 
E BA § 10$: POPR #*A<R1,R2,R3> : 
5 . RSB 3 
. ° : System buffer allocated decrement user's quota 
53 8ED0 A 1 20$: — POPL R3 
62 OC A2 9E D 2 MOVAB P B_T_DATA(R2) ,P2B_L_POINTER(R2)’ 3 


estore user quota char 


e 
address to start oF data 


bates (%) 
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Vb ALLOC_P2BUF = ALLOCATE A APS BUFFER AND C eet 90:98:38 DRIVER. SRCIXEDRIVER.MAR; 1 ° (Be 
08 aé 23 8 Ef] 4183 MOVW 4 P B_W_SIZE(R2) ; Save buffer size in buffer 
5 E45 4184 MOVL ; Save P2 char buf addr 
52 080 4 00 O&48 4185 MOVL “g iI B(R4) ,R2 ; Get JIF address 
OA 7? E4D 41 § SUBL ig L BY TCNT(R2) ; Decrement user's quota 
BA OE 41 POPR R3> ; Restore registers 
2¢ a3 D0 £53 41 : mOVL singe §VAPTE(R3 : Save P2 buffer address in IRP 
30 A 08 A E 41 MOV SIZECRO) Ae -BOFF(R3)  ; Return buffer size in IRP 
50. «(01 A OESC 4190 308: nOVzBL re6 us SNORMAL A : Set success 
5 OESF 4191 ; Return to caller 


om 


G 5 
river 16-SEP-1984 :32:5 AX/VMS Macro v04-00 P 1 
CESS TO DIAGNOSTI Sets 7 90:96:38 LORIVER. SREIREDRIVER-MAR: 1 = By) 


. ~SBTTL CHECK_DGBUFx = CHECK ACCESS TO DIAGNOSTIC BUFFER 
CHECK_OGBUFx = CHECK ACCESS TO DIAGNOSTIC BUFFER 
Functional description: 


sets 


= VAX/VMS DEUNA/DELUA D 
CHECK_DGBUFx = CHECK AC 


This routines checks access to a diagnostic buffer as part of a diagnostic 
function request. 


Inputs: | 
R1 = Length of buffer (CHECK_DGBUFA only) | 
R3 = IRP address 
R4 = PCB address 
RS = UCB address 
| 
Outputs: 


RO,R1,R2 are destroyed. 


No RETURN on NO ACCESS 
Implicit Outputs: 


If CHECK_DGBUFW, then IRPSV_FUNC bit set in IRPSW_STS by EXESREADCHK 
subroutine. 


ENABL LSB 


} 
CHECK _DGBUF A: Check write buffer to diag buffer | 
| 


m 
PADRE AAAEAAAAA AAA AAA AA AAA AAO AAAAAO 


a eee lalate lala la lo lola lolo lolol ole lololololololololo) 
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; _~ Address check only 
50 6C 09 MOVL P1(AP) ,RO ; Get address of diagnostic buffer 
on’. ¥ BEQL BAD_PARAM ; Br if none 
00000000'GF  9F PUSHAB G“EXESREADCHK ; Set routine address for checking 
19 «+11 re BRB 20$ 3; Join common code 
6D CHECK_DGBUFR: : Check read access to diag buffer | 
00000000'GF 9F $9 PUSHAB G*EXESWRITECHK 3; Set routine address to check buffer 
06 11 a3 10$ ; Continue 
75 CHECK_DGBUFW: ; Check write access io diag buffer 
00000000'GF 9F 75 PUSHAB G*EXESREADCHK 3; Set routine to check write access to 
78 : buffer (no return no access) 
78 ; Also sets IRPSV_FUNC in IRP 
50 §666 00 78 10$: MOVL P1(AP),RO ; Get address of diagnostic buffer 
28 43 BEQL §BAD_PARAM : Br if none 
51 04 AC 6 MOVZWL P2(AP),R1 ; Get size of buffer 
ge 1 4 BEQL BAD_PARAM ; Br if none 
3 1 $ 208: JSB a(SP)+ ; Call routine to perform checks 
52 ; MOVL RO,R2 ; Save address of user buffer 
FF7D BSBW ALLOS P2BUF 3; Allocate a buffer 
1c § E9 of BLBC RO,ALCOC FAIL 3; Br if allocation failure 
50 2CA3 D MOVL RPSL SVAPTE(R3) ,RO : Get system P2 buffer addr 
04 ag ae 95 MOVL  R2,P2B_L_BUFFER(RO) . save user's P2 buffer addr 
09 2A a3 (01 SC#éE 99 BBS #IRPSV-FONC, IRPSW_STS(R3),30$ ; Br if READ function 


sets 
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AX/VMS Macro V04-00 
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Paar 3, 


9 : Move buffer to system buffer, if WRITE function 


WO OONOAUS UT 
7 


PUSHR 
MOVC3 
POPR 
0$: 
AD_PARAM: 
MOVZBL 
LLOC_FAIL: 
MOVZWL 
0$: BRw 
.DSABL 


#OMCR 
R1 ines Pee t _DATA(RO) 
#*MCR 


#S$S_BADPARAM,RO 
40$ 


#SS$_INSFMEM,RO 
ABORTIO 
LSB 


; Save gt dy. regyaters 
; Save P2 char buffer 

; Restore registers 

; Return to checker routine 


; ; Bad parameter 


Set failure code 


S Allocation failure 
Set failure code 


; Abort the I/0 request 
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KEDRIVER = VAX/VMS DEUNA/DELUA Driver 16-SEP-1984 00:32:54 VAX/VMS Macro v04-00 Page 93 
yon 008 STARTIO = START 1/0 OPERATION mae 1 90:76:38 DRIVER.SRCIXEDRIVER.MAR; 1 . > 
+ : $3 6: -SBTTL STARTIO = START I/0 OPERATION 
EBD 4 ¢ > STARTIO = START 1/0 OPERATION 
EB 4 8 : Functional description: 
—B5 4 9 : This routine is called when an IRP is ready to be processed by the driver. 
EBS 4 i ; The request is dispatched to the appropriate routine base on the internal | 
+ : i ; function code in the IRP. 
EB) 4275 ; Inputs: | 
£88 4 7 ; R3 = IRP address 
pee ? ee : RS = UCB address 
O83 4 80 : IPL = FIPL | 
i 
OEBS 4284 ;: RO-R2,R4 are destroyed. 
Ofes 258e 
OEBS 4 Ha STARTIO:: ; Process an 1/0 packet 
21 AS 9A OEBS 4288 MOVZBL__IRPSB_XE_FUNC(R3) ,R1 ; Get the internal function code 
OEB9 4289 10S: SOISPATCH R1,TYPE=B,- 
pees : + <a 3 function action 
OEB9 4 38 <XE_FC_V_LINIT  STARTUP>,=- ; Startup request 
OEB9 429 <XE_FC_V_RDCNTS INPUT>,= ; Read counters request 
OEB9 4294 <XE_FC_V_RCCNTS INPUT>,=- ; Read and clear counters 
OEB9 4295 <XE_FC_V_STOP SHUT>,= : Shutdown request 
OEB9 4296 <XELFC_V_MULTI INPUT>,= ; Set new multicast List 
0EB9 4297 <XE“FCVILDMEM INPUT_BUFFERI>,-: Load DEUNA/DELUA memory | 
OEB9 4298 <XE“FCTV“RDMEM INPUT “BUFFER>,- ; Read DEUNA/DELUA memory 
OEB9 4299 <XE_FC_V_UPST  INPUT>,=- ; Load and start Micro-address 
OEB9 4300 <XE_LFC_V_LDSID INPUT>,=- ; Load system ID parameters | 
OEB9 4 83 <XE_FC_V_RDSID INPUT>,=- ; Read system ID parameters 
OEB9 4 ; <XE-FC"V-STOPPR INPUT>,- 3 Stop xmit and receive | 
OEB9 430 <XE_FC_V_STEST INPUT>,= ; Perform DEUNA/DELUA self test 
OEB9 4304 <XE_FC_V_READST INPUT>,=- ; Read port status 
OEB9 4305 <XETFCTVESTEST INPUT>.- : Perform DEULA extended self test | 
OEB9 4 8 <XE_FC_V_HALT INPUT>,=- ; Halt port (DELUA only) | 
pee? : > 
er5 2 03 : Other request type 
Ere 4311 ° BUG_CHECK NOBUFPCKT, FATAL ; Fatal error | 
i 
ef ? i : Startup unit's protocol 
EF9 4 1 STARTUP: : Startup unit's protocol 
45 19 EF9 431 BSBB START ; Start protocol 
01 50 3 EFB 4 18 BLBC RO,10$ ; Br if error on startup 
5 fe ? i? RSB : Else return to caller 
50 DD OEFF 4 $f 10$ PUSHL RO ; Save error return 


XEDRIVER - VAX/VMS DEUNA/DELUA Driver 16-SEP-1984 :32: AX/VMS Macro V04-00 
rea titi STARTIO = START 1/0 OPERATION aes} 90:38:38 DRIVER. SRCIXEDRIVER.MAR; 1 
33 18 F } 4 ¢ BSBB STOP 3 Shutdown unit 
0 BED F 4 POPL R 3; Restore error return 
‘ 6 2 : BRB DRV_DONE ; Complete request in error 
F é 4 § DRV_DONE : 
3A AS 29 0 OF 4 MOVW RO, IRPSW_XE_STATUS(R3) ; Set completion status 
0080 D4 E OFOA 4 : INSQUE (R$),aCDB G-POST+4(R4) : Insert IRP on posting queue 
09F0 = 31 FOF 4 ; BRW SCHED_FORRC : Schedule a fork process 
4 2 1 ; Shutdown UNIT’s protocol 
Fl 4 § SHuT: 3; Shutdown protocol 
54 0180 $2 Fi 4334 MOVL tts XE_CDB(RS) ,R4 ; Get CDB address 
0224 ¢4 = 55 FI? 4335 CMPL R5,CDB_L-PRMUSER(R4)  ; Are we the PROMISCUOUS user? 
12 FIC 4 : BNEQ 0$ : Br if not 
0224 C4 OF 1 4 CLRL CDB_L_PRMUSER(R4) ; Else, clear the PROMISCUOUS user 
OF 4338 CLRBIT #PB_MOD_V_PROM,- 3; Reset the hardware mode 
OF 4339 COB" wW_MODE(R4) 3 out of promiscuous mode 
01 90 OF 4340 MOVB #NMASC_STATE_OFF,- ; Don't forget about the CDB 
025D_ C4 OF2A 4341 CDB_B_PRM(R4Y ; parameter 
O3CE 31 OF 4 : 4g BRW PUT 3; Insert request on Input queue 
06 10 or 0 4344 108: BSBB STOP 3 Shutdown unit 
50 01 QA OF ¢ 4345 MOVZBL S*#SS$_NORMAL,RO ; Return success 
1013 -31—sOOF 4 4g BRW 10_DONE ; Complete 1/0 request 
Ores 4347 ; 
oF 4348 ; STOP the unit 
F38 4349 ; 
OF 38 $329 STOP: 3; Stop the protocol 
54 0180 C5 DO OF38 4351 MOVL UCBSL_XE_CDB(R5) ,R4 ; Get CDB address 
1SFA 631 «(OF3D «04352 BRW SHUTDOWN_PROT YP ; Shutdown the unit 
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«SBTTL START = START UNIT'S PROTOCOL 

START = START UNIT'S PROTOCOL 

Functional description: 

This routine initiates the protocol on the unit. The DEUNA/DELUA is reset if 


first unit online. The free List is filled and the first receive started. 
f a failure occurs the unit shutdown sequence is entered. 


ro V04-00 Page 33 
DRIVER. SRCIJXEDRIVER.MAR; 1 (39) 


Inputs: 


R3 = IRP address 
RS = UCB address 


IPL = FIPL 
Implicit inputs: 


IRPSL_MEDIA contains a copy of the mode buffer specified by the user. 
IRP$W_BOFF contains the quota taken from the user for the unit. 


Outputs: 
RO = Status return for startup request. 


R1,R2,R4 are destroyed. 
R3,R5 are preserved. 
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START:: ;_ Start protocol operation 
00 «(91 CMPB #NMASC_LINPR_POI,- 7% Are we in PT-TO-PT mode? 
00D8 C5 CB$B_RE_PROTRS) :% 
4 12 BNEQ 3% Br if not 
51 00C4 8F 3¢ MOVZWL #IRPSC_LENGTH,R1 3% Set size of an IRP 
3. «OD PUSHL 7% Save R 
00000000'°GF 16 JSB G*EXESALONONPAGED 3% Allocate the IRP 
3 8ED0 POPL R3 3% Restore R 
96 0 8 BLBS RO,1$ 3% Br if success 
50 0124 BF 3¢ 9 MOVZWL #SS$_INSFMEM,RO :% Set error return 
05 F : RSB 3% Return to caller 
017¢ cS)=—s 52.~—~—ié«éiOD o 96 1$: MOVL R2,UCBSL_XE_STIRP(RS) ;% Save startup IRP 
0060 8F AB 9 BISW  #UCBSM XE START UCBSM_XE_ STACK ,- 3% We are now in the startup 
68 AS pH > UCBSW_BEVSTS(R5) ; and stack wait state 
oopc ¢5)— sé 68 3$ TSTL YeStL NE _CPIBCRS) ; Creator PID saved already? 
6 3 of BNEQ $ ; Br if yes 
oopc (5 «= 20 ASOD al MOVL UCBSL_CPID(RS) ,UCBSL_XE_CPID(R5) ; Else, save creator PID 
as 3; Set up idle UCB 
0800 8F 3C OF77 Ss: MOVZWL #XMSM_STS_ACTIVE,- 
78 UCBSL ~DEVBEPEND (RS) ; Reset status and error summary , 
2103 17 «91 «OF7D ¢ CMPB #XE_FC_V_RESTART,IRPSB_XE_FUNC(R3) ; Is this a re-start operation? 
0 13 H+ 4 BEQL ; Br yes - don't reset the PID 
0088 ¢5 «= (OC AS-i 3 441 MOVL  IRPSL_PID(R3),UCBSL_XE_PID(R5) ; Save starter's PID 
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nara START = START ONES PROVOCOL g-36F- 138 88: 36: 34 DRIVER. SRE REIX XEDRIVER.MAR; 1 . (38) 
F89 441 : 
: 2 gel | 3 Check for C08 
6380 C 4 FB89 «4414 bs MOVL UCBSL_XE_CDB(R5S) ,R2 ; Get CDB address, crash if not present 
2 f 6 OF 5 4415 INCB © CDB_B-UNTCNT(R2) ; One more unit on this controller 
EO OF a213 BBS #COB_STS_v et te :; Br if already inited 
03 025A £ F94 «441 608 _8_STS(R »,10$ 3 
00 31 roe $218 BRW 0$ : Else, init CDB 
54. COS DO OF9B 4420 108: MOVL R2,R4 3; Copy CDB address 
50 3900 C SE OFSE 4421 MOVAB uCchSB_ XE enye iat fl RO ; Get UCB parameter address 
51 9s F & 9E OFAS 44 § MOVAB CDB 8 “SETPRM(R4),R1 ; Get COB parameter address 
4 9A DEAR 46g) MOVZBL SUCBSC XE COBPRM:A? ©; Set Sizeof parameter List | 
FAB 4425; 
iran rr 8 3; Check order of UCB parameters | 
ee 4428 ‘ ASSUME UCBSB_XE_CRC EQ UCBSB_XE_CDBPRM 
FAB 4429 ASSUME UCB$B_XE-CON EQ UCBS$B_ _XE_CRC+1 
OFAB 4430 ASSUME UCB$B_XE-EKO EQ UCB$B_XE_CON+1 
ae re 1 ASSUME uUCcBSB_ XE-ILP EQ UCBS$B_XE_EKO+1 
OFAB rr ; : Check order of CDB parameters | 
OFAB 4435 © ASSUME CDB_B_CRC EQ CDB_B_SETPRM | 
OFAB 44 § ASSUME CDB"B-CON EQ CDB_B-CRC+1 
OFAB 44 ASSUME CDB"B_EKO EQ CDB_B_CON+1 
aes ¢ 3 ASSUME CDB_B_ILP EQ CDB_B_EKO+1 
OFAB 4440 ASSUME NMASC_STATE_ON NE -1 
OFAB 4441 ASSUME NMASC”STATE “OFF NE -1 
e750 ea wh at 4x 
; Br 
80 81 4 orp 4444 MOVB (R1)+,(RO)+ : Store CDB value in UCB 
F552 «OF Ores 4445 SOBGTR R2,13$ : Loop if more to check 
06 pret : NOW, check if user has given a hardware physical address. 
FB6 4449 ; RO = Address of parameters in UCB 
4 ret 3 R1 = Address of parameters in CDB 
OF 6 44o¢ . ASSUME CDB_G_PHA EQ CDB_B_ILP+1 
FB6 445 ASSUME uCose a XE_PHA EQ OCB$B_ XE. ILP+1 | 
60 FFFFFFFF 03 0} 4s ret: cr is¢ Is user physical address defined? 
04 AO FFFF 14 h er £328 nee #-1,4(R0) as weer a 7 physical address defined? 
40 AS 0804 BF B0 ae £628 15$: MOV #NMASC_PCLI_PHA, IRPSW ~XE CODERS) 3; Assume bad paystcat address | 
81 9 } 454 2222 cw (RO)+, TRI) +” : oo sical address match?? 
81 8 of FD Pree: CAP (RO)+, (R1)¢+ : erat match?? 
2 FDS 44 § BNEQ 19$ ; Br ifn 
63 C4 DO OFD? 44635 16% MOVL CDB_G_PHA(R4),- : Return. hardware set address 
) 3 - A ret: ond cUCesG xe PHACRS) 3 just in case we defaulted 
€5 C5 ree 446 UCBSG_XE_PHA+4 (RS) : ant | 


<a 
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raat START = START ONES PROTOCOL $78 set 90:36:38 DRIVER. SRCIXEDRIVER.MAR; 1 . ai 
FES 4468 ; Check users buffer size - must not be more than twice the hardware buffer 
43 rr ; size. (Already has been checked against max message size). 
40 a3 AF 8F 0 OFES 4471 ° MOVW #NMASC_PCLI_BUS,IRPSW_XE_CODE(R3) ; Assume bad buffer size 
51 $088 C4 Re FE +028 MOVZWL COB WBS7 (RE) RI “3 Get device buffer size 
FF 447 ASSUME WAASC STAT ON EQ 0 
FF 4474 ASSUME NMA bl OFF ge 1 
OA Og5e (4 «OC€ FFO 4475 LBS DB_B_DCH(R&) ,17 ; Br if data chaining OFF on DEUNA/DELUA 
05 OODA CS) «EB OOFF 4476 BLBS  UCBSBIXE_DCH(R5),17$ ; Br if user can't do data chaining 
FFA 447 3; && Maybe this is an Internal IRP user 
51 0098 C4 AO OFFA $058 ADDW COB_W_BSZ(R4) RI 3 Compute twice the normal buffer size 
51 42A 1 OFFF 4479 17$ CMPW CBSW-DEVBUFSIZ(RS) .R1 i Is butter size okay? 
2 A oo? 4480 BGTRU :; Br if too large 
40 A B4 1005 4481 CLRW P$W_XE_CODE(R3) 3; No bad parameters 
19 AB 1008 44 ¢ BISW #UCBSA_XE_RUN,- : Indicate we have entered RUN mode 
68 A 100A 44 UCB$W_BEVSTS(RS) ; 
2103 18 90 1 15 4484 MOVB #XE_FC_V_CHMODE, IRPSB_XE_FUNC(R3) ; Set new function code 
1010 4485 SETIPL Ucese BIPL(RS) 3; Sync access to UCB and CDB 
0088 D4 —s 63 3 1014 44 § INSQUE (R3),3CDB_Q_INPUT+4(R4) ; Insert at END of input queue 
04A0 1019 44 BSBW LOAD_PORT ; Load the DEUNA/DELUA port 
50 01 9A 101C 4488 MOVZBL #SS$_NORMAL ,RO ; Return success 
05 Haha ret RSB ; Return to caller 
18 8 raed : Error on parameter validation 
40 AS F184 CF42 BO 10 ! 4493 18$: MOVW BAD _PARAM_ TBL=2(R2),IRPS$W_XE_CODE(R3) ; Return parameter code 
50 14 9A 10 4494 198: MOVZBL S$“*#5S$_BADPARAM,RO ; Return bad parameter error 
05 19 2 $e32 RSB ; Return to caller | 
8 : £238 : Initialize CDB 
51 0222 8F 3C 61028 4499 20s: MOVZWL #CDB_C_ZERO,R1 : Get portion of CDB to init with zero 
3E ge 10 £280 PUSHR #*M<R1-R2,R3,R4,R5> ; Save registers 
62 51 00 62 90 C 19 4501 MOVCS #0, (R25,#6,R1, (R2) : Zero the structure 
—E BA 1 $206 POPR #AM<RT,R2R3,R4 ROD ; Restore registers 
103A 430 ASSUME CDB_L_FQFL EQ 0 
103A 4504 ASSUME +1 L_FQBL EQ CDB_L_FQFL+4 
54 82 7E 103A 4505 VAQ (R2T+7R4 3; Skip Link pointers, copy CDB address 
Ht 4 $288 ASSUME CDB_W SIZE EQ CDB_L_FQBL+4 
82 51 B60 103d 450 VW R1,€R2)+ ; Store size of structure 
1040 $208 ASSUME CDB_B_TYPE EQ CDB_W_SIZE+2 
is 45 ASSUME CDB_ B FIPL EQ COB B TYPE+1 
82 0833 8F BO 104 $239 VW #<IPL$_XE_FIPL@8>TDYNSC_CDB,(R2)+; Set structure type and FIPL 
196 rth ASSUME CDB_L_FPC Hy CDB_B_FIPL#1 
82 00001921'EF 9E& 1045 4 \¢ VAB_ FORK PROC. R2)+ ; Set fork process address 
106C 451 ASSUME CDB_C_FR3 EQ CDB_L_FPC +4 
106€ 4514 ASSUME CDB-L-FRA EQ CDB_L-FRS+4 
82 7¢ 104 4515 tka (Rave : Clear fork R3 and R4 | 
104 4316 ASSUME CDB_B_NEXTXMT EQ CDB_L_FR4+4 
104E 451 ASSUME CDB_B_NEXTRCV EQ CDB_B NEXTXMT+1 | 
104E $218 ASSUME CDB"B-RCVMAP EQ CDB_6_REXTRCV+ 
104E 451 ASSURE CDB"B"XNTMAP EQ CDB_B_RCVMAPS1 | 
82 D4 104 $2 9 LRL (R23+ . Clear slot in use flags 
1 4 ASSUME CDB_L_RCVMAP EQ CDB_B_XMTMAP+ 
3! C 9 1 45 § VZBL #MAX_C_XMT+MAX_C_RCU,R1 ; Set number of mapping vectors 
2 1 ce 1 $e 30$: MNEGL #1, (R2T+ : Indicate no mapping info 
FA 51 F5 1056 4524 SOBGTR R1,30 ; Loop if more 


ee 


vou=000" START = ~SERHSES 88:78:38 HOMIVER. SRESRebRtveR. mney 28° (38), 


DB_L_RCVMAP+<4*<MAX_C_XMT+#MAX_C_RCV>> 
DB-L-XRADDR*<4*MAX_C_RMT> 

DB-G_XRING+XMT_K_LENGTH 
4 C“LENGTH 


nN 5 
DEU At Driver 1 
TART UNIT'S PROTOCOL 


ASSUME 


; Set total number of ring entries 
:; Set address of first ring entr 
35$: ; Store ring entry address in table 
; Loop if more 

ES EQ CDB_L_XRADDR+<4*<MAX_C_XMT+MAX_C_RCV>> 

ES, : Set number of queue Tistheads 
40$: MOVAL 3: Set forward Link 

M ; Set backward Link 


Pd 
RBRBVDW i ~BODVDIsSVIOBWOOO 


BK 
R 
a 
E 
X 
R 
+ 
LENGTH,RO :; Compute oddress of next ring entry 
U 
Q 
2 
( 
Ss 
L 


; Loop if more Listheads 
STS(R4) ; Set initial status bits 


INITED,CD 
oopc ¢4 «01s«éCE’ “PCBBMAP(R4) ~ ~; Set no mapping for PCBB yet 


the ring descriptor entries can be setup only once. Note that the DEUNA/DELUA 
3; receive buffer size must be a multiple of 2 


GOGO OD OD C9 G9 G9 SIN IOP PAA OMI 


ASSUME <XE_C_HEADER+XE_C_CRC+XE_C_CNTSIZ & 1 > EQ 0 

MOVZBL #MAR_C RCV,R1 ; Se 

MOVA CDB_G_RRING(R4) ,RO Set address of first ring entry 
#XE_C_HEADER+XE_C_CRC- Calculate buffer length 


+XE"C"CNTSIZ,- ~~ : anes 


t total number of ring entries 


MRIMININIPINININING NLOSG FS FNS OOOWoVodo 


5 
50. (0 


52 0006 U es 
43$: MOVW R2,RC ; Store buffer length in current entry 
ADDL2 “ Compute address of next ring entry 
SOBGTR R1,43$ 


Loop if more 


Allocate map registers for receive buffers and one transmit buffer. The 
any datapath (buffered/unbuffered) can be used for all 1/0's due to the 
fact that all data is buffered on the DEUNA/DELUA. 


We will allocate the buffered data paths, only as needed. No buffered 

data paths are pre-allocated. Also, we can only use the buffered data 
paths for transmit operations. This is because receives have no guaranteed 
completion time and we do not want to waste the buffered data paths! 


NA 
U 
5 
5 
5 
0 
1 
‘ 
4 
5 
$ 
5 
0 
1 . 
§ ; Because the recieve buffer sizes are a constant, the buffer length fields of 
5 e 
; 
8 
.] 
0 
1 
: 
4 
5 
; 
8 
9 
0 
1 
: 
4 
5 
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99 
80 


MOVW UCBSW_XE O57 (RS) = ; Init COB buffer size 
- BSZ7(R4) : 


COB _W ; 
MOVW  UCBSW7XE_HBQ(R5),CDB_W_QUOTA(R4) ; Set initial quota 


ASSUME INIT C_AQUOTA LE 255 
ASSUME CDB 6 AQUOTA EO CDB_B_AQUOTA+1 
MOVW &#<IRIT_C_AQUOTAQ8>,= 3 Initialize Maximum QUOTA 
CDB_B- AQUOTA(R4) 3_and zero Additional QUOTA 
ASSUME UCBSB_RE_MLT EQ UCBSB_XE_PRM+1 
ASSUME CDB B7MLT EQ CDB_G PRRs 
MOVW $UCBSB-XE_PRM(R5)°CDB_B_PRM(R4) ; Set the promiscuous mode 
; _and the all muiticast enable 
MOVAB UCBSB_XE_CDBPRM(RS),RO ; Get address of UCB parameters 


OOBA C4 


0250 (4 0008 C5 B0 
50 O00DD CS 9% 
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KEORIVER = VAX/VM 
04000 START = 
51 : E B 
A A B 
1 8 9 
FA F 
1A74— 5 
00B8 ¢4 «BB 
E AS 
7C AS) = «OOWFF 8F =e BO . 
54 OD D 
54 2405 0D 4 
E 
34 AG 4 E 
56 _1C AG ODE E 
57. 08 9A E 
one 1 E 
4350 € 
86 34 A4 OD 
FO 57 —si#F 
OSEE Bf 3¢ 
QO000000'GF 16 0 
2D 50 —=—s«EY 0 
Q 
56 10 A4 00 0 
57 4 AS 00 
00C8 _Cé 4 A? 00 
57 0006 C6—s«&9E 
ya :? AB 
7C A 7 
7E AS. 014C BF BO 
00000000'GF 16 
09 50 =—«E8 
50 0344 8F 3C 
05 
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tt 
CONAN EAR OO OD NAOU SWIM $ O OONAUE WN 


PEPER PP PEEP EPL PPP PEPE ES 
POAAAAAAAAAAPAAAAAAAAAAAAAAM 


MOVL 
SOBGTR 
MOVZWL 


JSB 


BLBC 
ASSUME 
MOVL 


ASSUME 
ASSUME 
MOVL 


EXTZV 
MOVL 
MOVAL 
JSB 
EXTZV 


16-SEP 73 AX/VMS Macro Vv04-00 Page 99 
g-SEF 1382 88: +8: 34 YORIVER. SRCJXEDRIVER.MAR; 1 ° (39) 
C08 8 SETPRM(R4) ,R1 ; Get address of CDB parameters 
auc8 ct x SETPRM,R2 ; Set size of parameter List 
(RO) +, TRIT+ ; Store parameters 
R2,45$ : Loop if more 
MOVE MULTI ; Copy multicast address List 
COB_0_BS7(R4),- ; Set buffer size 
UCBsu BCNT(RSS 
#511,0CBSW_BOFF (RS) ; Set worst_case byte offset 
R6 3; Save R6,R7 
R4 RO : Save CDB address 
UCBSL_CRB(RS) ,R4 : Get CRB address 
VECSW-RAPREG*? EQ VECSB_NUMREG 
VECSB_NUAREG* EQ VEC$SB-DATAPATH 
CRBSL_INTD+VECSW PREGTR4) ; Clear map register + datapath 
COB_L enc YnAn she). 7R6 ; Get aos be, slot address 
#mMar gr : Get number of receive slots 
G* 19f A GUBAMAP : Allocate a set of map registers 
RO, 70$ Br unavailable 
cnés INTD+VECSW MAPREG (RAD. (R6)+ ; Save map info 
$ ; Continue 


#MAX PKT SIZE+18,= 


Set transmit buffer size to max 
UCBSQ_BCAT(RS) 


Ethernet packet size + header 


IGE EALOUBARAP ; Allocate a set of transmit registers 
70$ Br if unevel \sbte 
CoB XMTMAP_ EQ CDB_L_RCVMAP+<4*<MAX_C_RCV>> 


cRBSt INTD+VECSW. MAPREG(RG), (R6) ; Save transmit map info 


: Calculate UNIBUS mapping for PCBB and other DEUNA/DELUA structures. 


CRBSL_AUXSTRUC(R4) ,R6 ES COB — 


UCBS$L_DDB(RS) ,R7 t DDB addre 
DDBSL =UCBCR?? sR BS _ucaoine) ; Set UCB *40 address 
CDB_G-PCBB Get PCBB address 
gatey ASM BcRos : Get PCBB byte offset 
7, UCBSW~BOFF ae 
pH COB _C_MAPPED ,UCBSW -BCNT(RS) ; Set Block size 
Tors KLOUBAMAP ; Allocate map registers 
,80$ Br if otlece ted 


*h 
Set insufficient map registers 


6 Restore R6 
#SS$_INSFMAPREG,RO : 
; Return with error 


e- +3 oe PCBB mapping info 
COB_L-PCBBMAP(R6) : 


Convert virtual PCB address to physical PTE address 


S*#VASV_VPN,- ; Get PCBB page number 
S*#VASS_ vent ‘Re R1 
age RO t SPT address 


feoventdcoce “beast ERO asi & “Set pre addres 

G*I UBAMAP ; Load the ¢ Coe He registers 
$719 : Get BATS -B 

nate INTD+VECSW _MAPREG(R4) RI; 


KEDRIVER = VAX/VMS_DEUNA/DELUA Driver 16-SEP-1984 00:32: AX/VMS Macro v04-00 Page 1 
yon 008 START = START UNIT*S PROTOCOL = SFE 38 98:76:34 LORIVER. SREIXEDRIVER.MAR: 1 . (99), 
wee RE 78 1163 4639 A #16,R1,R1 ; Move to high word 
51° 7C A 69 1187 4640 MOVW UCB$W_BOFF (RS) RI : Set BAO-BAB 
- - aa F 1168 4641 INSV cRes “INTD+VEC$W_MAPREG(R4),- ; Set BA9-BA15 
00CO C6 1 00 aI asés MOVL R1,CDB_L_PCBBUA(R6) ; Save PCBB UNIBUS address 
1108 re ok ; Initialize ring buffer descriptor 
51 00000004 8F CO 1176 tee? ADDL #COB_G_XRING-CDB_G_PCBB,R1 ; Get address of XMIT RING 
1170 4648 ASSUME UDB_BUF_W_TDRBL EQ°0 
OODE C6 51 DO 117D 4649 MOVL R1,CDB_G_RRUDB(R6) ; Store XMIT RING UNIBUS address 
05 90 1182 age9 MOVB #<XmT_C_CENGTH/2>,- ;_ Store size of XMIT RING entry in words 
OOE1 C6 1184 4651 CDB_G_XRUDB+UDB_BUF _B_TELEN(R6) ; 
04 9B 1187 s026 MOVZBW #MAX_C_XMT,- ;_ Store number of ring entries | 
Q0E2 C6 1189 465 CDB_G _RRUDB+UDB_BUF_W_TRLEN(R6) ; 
1 ¢$ co a 4654 ADDL #COB_G_RRING-CDB_G_RRING,R1 ; Get address of RECV RIN 
00E4 (6 «51 «DO 118F 4655 MOVL  R1,CBB7G XRUDB +08 -BUF _W_RDRBL (R6) ; Store RCV RING BUS address 
05 90 119% 4636 MOVE = #<RCV_C_CENGTH/2>,= ; Store size of RECV RING entry in words 
00E7 C6 1196 465 CDB_G_XRUDB+UDB_BUF _B_RELEN(R6) ; 
08 98 1199 4658 MOVZBW #MAX_C_RCV,- : Store number of ring entries 
OOE8 C6 1198 4659 CDB_G_RRUDB+UDB_BUF_W_RRLEN(R6) ; 
119E 4661 ; Initialize DEUNA/DELUA mode word 
119E 466¢ ; | 
119E 466 ASSUME NMASC_STATE_ON EQ 0 | 
119E 4664 ASSUME NMASC_STATE_OFF EQ 1 
0258 C6 Att CF 1 4665 MOVW DEF _MODE,CDB_W_MODE(R6) ; Reset mode to initial value 
07 025D C6 EB 11A5 4666 BLBS CDB_B_PRM(R6),90$ : Br if promiscuous state is OFF | 
ttt 8F 11AA 4667 BISW #PB_-MOD_M_PROM,= ; Else, enable promiscuous mode 
0258 C6 Vat ace CDB_W_MODE (R6) 3 
07 025E C6 EB 1181 4670 90$: BLBS CDB_B_MLT(R6),100$ ; Br if multicast state is OFF 
rst 8F AB 1186 4671 BISwW #PB_M ENAL,- ; Else, enable all MULTICASTS 
0258 C6 118A 467 CDB~W_MODE (R6) : 
OQOOOIFOC’EF 9E 1168 4674 100$: MOVAB ASSPKT_NODCH,- ; Assume data chaining is disabled 
0284 C6 11C3 4675 CDB_L_ASSPKT(R6) 
19 025C ge EB 11€6 467 BLBS COB_B_DCH(R6),110$ : Branch if data chaining is OFF 
OSDC 8F B81 11CB 467 CMPW #Mar P 1ZE,- : Don't enable data chaining if the 
00B8 C6 11CF 4678 £08 Q_BS7(R6) ; recieve buffer size is greater than 
10 18 1102 4679 BLEQ 1108 3 or equal to the maximum packet size 
£900 8F AA 1104 4680 BICW #PB_ M_DRDC,- ; Enable data chaining 
e28 C6 11D8 4681 CDB-W_MODE(R6) 
QOOOIFCS"EF 9E& 11DB 46 ¢ MOVAB ASSPKT_DCH,- ; Use data chaining ASSPKT routine 
02B4 (6 449 re ? CDB_L_ASSPKT(R6) 
07 9638 6 ce 11E4 4685 1108: BLBS CDB_B _PAD(R6) ,120$ : Br if padding is OFF 
1000 BF AB TIES 4686 BISW #PB-MOD_M TPAD,- : Else, enable padding 
0258 C6 IED 46 CDB~W_MODE(R6) ; 
05 025F £6 E9 11F0 46 5 120$: BLBC COB_B_CRC(R6) ,125$ ; Br if CRC is to be generated 
8 AB 11F5 4690 BISW #PB-MOD_M DTCR,- : Else, disable CRC generation 
0258 (6 117 4691 COB" W_MODE(R6) : 
$3 0261 C6 gR 11FA 4695 125$: BLBC CDB_B_EKO(R6) ,130$ ; Br if Echo mode is enabled (ON) 
1 OAA A 11FF 469% MOVZBL__UCBSB~TYPE (R55 ,R1 ; Retrieve device type 
1203 4695 SDISPATCH R1, TYPE=B,- ; Dispatch based upon device type 


oe ee ee ee ee ee oor — —_— —_--—-—--- --- —-- - ee ~~~ - ----- 


XEDRIVER = VAX/VMS DEUNA/D Drive 16-SEP-1984 3 AX/VMS M v04- P 1 
raat START = START ONT ETS PR PROTOC COL ae ttt 8:7 §: 34 YORIVER. SR SRE aXED SRIVER.MARS 1 a 93, 
1 £636 <- 
1 469 <OTS_DEUNA 19733 -= ; DEUNA = disable echo mode 
: 4699 : <DTS_DELUA 150$>,- ; DELUA = echo mode is always disabled 
01 AB 121F 4700 127$: B1SW #PB_MOD_M_HDX,=- ; Else, disable Echo mode - set to HDX 
0258 C6 i 4701 COB~w_MODE (R6S : 
1004 47 ‘ 130$: ASSUME NMASC_LINCN_NOR EQ 0 
12246 4704 ASSUME NMASC_LINCN_LOO Fe 1 
16 0260 C6 E9 1224 4705 BLBC CDB_B-CON(RE) ,140$ ; Br if LOOPBACK is not enabled 
04 AB 1229 4) BISW #PB- MOD _M LOOP, - ; Else, enable loopback 
0258 C6 1228 £28 COB_W MODE (R6) : 
1 AA 4 4708 BICW #PB-MOD_M_HDX,= ; Must set ourselves to FDX 
0258 C6 4709 CDB_W_MODE (R65 tee. What a KLUGE 
07 S443 C6 €8 1 4711 BLBS CDB_B_ILP(R6),140$ ; 
0040 8F AB 1238 at BISW #PB-MOD_M_INTL,= ; Else, enable internal loopback (DELUA) 
0258 C6 : ri BF cdB- _W MODE (R6) 3 
54 56 00 i$ F 4715 140$: MOVL R6,R4 ; Set R4 to COB address 
iste ocis POPQ R6 ; Restore R6, R7 
: e ry 4} : Setup fork process to start CDB timer 
38 «6BB 1245 «44720 ° PUSHR #*M<R3,R4,R5> : Save registers 
04 E2 1247 4721 BBSS #CDB_STS_V_TIMER,- ; Br if timer already going 
24 025A C4 1249 47 : CDB_B STS(R4),150$ : 
88 1240 47 BISB #O0PTSA_NOUNLOAD ,- 3 Do not allow driver to be unloaded 
0000000D ‘EF 1246F 47246 DPT Taber TSB FLAGS : vey the TQE is active 
5 0228 C46 DE 1254 4725 MOVAL CDB_L_TQE(R4),R Get the TQE address 
20 AS 00000000 01312000 BF 7D 1259 4726 MOVQ #TQE BELTA, TOESQ _DELTACRS) : Set the delta time 
5 2298'CF 9E& 1265 4727 MOVAB ora TIMER,R Set address of timer wakeup routine 
2c AS 05 90 126A 4728 MOVB #TOEse SSREPT, TQESL _Ropib«Rs) ; Set the TQE request type 
0050 30 1¢6F of 4 BSBW FORK_TIME 3; Create fork process for TQE 
; 4 rif 1; Put IRP on input queue to await master reset completion interrupt. 
3 BA 1271 47 § 150$: POPR #°M<R3,R 3; Restore registers 
0084 (4 6 OE 1273 4734 INSQUE (R3), t6B "’ NPUT (RS) ; pneery at front of input queue 
52 $e AS DO 1278 4735 MOVL UCBSL CRBCRS) ,R2 Get CRB adddress 
S2 C B2 dO : 43 rtf § MOVL ScResC INTD+VECSL_ 1DB(R25, Ro: Get CSR + 
: ‘ rif 8 : Master reset device 
1 4740 ° DSBINT UCBS$B_DIPL(RS) Sync access to UCB 
62 20 B80 87 4741 MOVY  § #XE_PCSRO_M_RSET, PCSRO(RD) + Master Reset device 
128A 1508 ; The master reset will take some time to complete 
} rs rot: > so we will execute some NOPs to give the DEUNA/DELUA some time. 
128A oes ‘ TIMEWAIT #1,#XE_PCSRO_M_DNI, PERROCES? W ; Wait for DNI or 10 usec 
50 01 9A 12AF 476 MOVZBL sv #5S$_RORMAL-R eturn success 
62 0040 8F BO 1 Be 4748 MOV E_PCSRO_M_INTE, PCSROCRS) Enable interrupts 
12B7 474 WF IKPCH TIMEOUT. #16 Wait for self test done interrupt. 
12C1 4750 : we wilt want all initialization 
12C1 4751 : to complete before floor ts timeou 
12€1 4752 ; and interrupt bits n UCBS _STsth5), 


E 6 
XEDRIVER = VAX/VMS DEUNA/DELUA Driver 16-SEP-1984 7:32:54 VAX/VMS Macro Vv04-00 Page 1 
area START = START UNITS PROTOCOL ety 7 90:76:38 DRIVER. SRCIXEDRIVER.MAR; 1 ° (9) 
12C1 4753 
12C1 4754 ;44 
: 3 rtf 5 ; FORK_TIMER = Routine to create fork a process to start a timer 
i 3 $f $ ; This routine starts up FORK process which is used to start a timer. 
12C1 47 § 3; Inputs: 
12C1 4760 ; 
12C1 4761 ; Hf = Address of byates routine to handle the timer expiration. 
: 3 1588 § RS = Address of TQE block 
12C1 4764; IPL = Greater than Queveast IPL 
12C1 4765 ; 
12C1 563 3; Outputs: 
1201 4767 ; 
12C1 4768 ; Fark process is started. 
12C1 44 : R3, R4& are destroyed by EXESFORK 
12C1 4770; 
12C1 4771 ;-- 
12C1 oer FORK_TIMER: ; Create fork process to start timer 
OA AS OF 90 12C1 477 MOVB $$ #DYNSC_TQE,FKBSB_TYPE(RSS ; Set structure type 
0B AS 06 90 12C5 477% MOVB #IPL$ GUEUEAST,FRBSB_FIPL(RS) ; Set IPL of fork process 
D2'AF 9F 1209 4775 PUSHAB B*START_TIMER ; Push address of fork process 
00000000'°GF 17 ¢ ores JMP G*EXESFORK ; Create fork process to start timer 
12D2 4778 ;++ 
! 4 rth ; START_TIMER - Fork process to start the CDB timer 
12D2 4781 ; This routine starts up the CDB which is used to monitor the DEUNA/DELUA 
10 45 ¢ 3 controller for proper operation. 
12D2 4784 ; Inputs: 
12D $782 3 
1202 4786; RS = Address of TQE block 
12D2 4787 ; 
12D2 4788 ; IPL = Queveast IPL 
12D 434 3 
12D2 4790 ; Implicit inputs: 
12D2 4791 ; f 
12D $238 ; TQESQ_DELTA(RS) = Delta time interval 
! . $287 $ TQESL_RQPID(RS) = TQE request type (SSSNGL or SSREPT) 
1202 4795 ; Outputs: 
1202 4796 ; 
1202 4797 ; RO-R3 are destroyed. | 
1202 4798 ; TQE element added to timer queue 
1202 4799; 
1202 4 39 :=- 
12D2 4801 START_TIMER: 
1202 4 8 DSBINT #IPLS_TIMER ; Raise IPL : 
OC AS 10 AS 08 1208 4 8 MOVL FKBSL-FR3(R5) ,TQESL_FPC(RS) ; Set address of timer wakeup 
C AS 1200 4804 MOVE $TOQESL~RQPID(RS),- ; Set TQE request type 
A? 12E0 4805 TOESB-RQTYPE (RSS : 
50 A 7D 12E2 4 $ mova TQESQ DELTA(RS) ,RO ; Get delta time 
50 GF co 1066 4 ADDL  G*EXESGO_SYSTIME,RO : Add in current time 
51 4'GF 08 12ED 4 3 ADdwC G*EXESGQ SYSTIME+4,R1 ; jee . 
"GF 16 1274 4 JSB G*EXESINSTIMQ : Insert element on timer queue 


| 


sets" 


m3 at 4 DEL YA Be 


| peggpcrgge ggs8a:56 vance 


3; Restore IPL 


Driver 
oTOCco 
ENBI 
RSB 


See maar P89" 195, 


| 
| 
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‘ -SBTTL INPUT = INSERT REQUEST ON INPUT PROCESS QUEUE 
INPUT = INSERT REQUEST ON INPUT PROCESS QUEUE 
Functional description: 


ay ie 


This routine inserts the IRP packet on the input waiting queue and 
loads the port CSR's. 


Inputs: 


R3 = IRP address 
R5 = UCB address 


Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
+ 


IPL = FIPL 
Outputs: 
The request is completed. 
INPUT: : 3; Insert request on input queue 

ASSUME UCBSV_XE_INITED EQ 0 

08 68 AS gs BLBS UCB$W-DEVSTS(R5),10$ ; Br if unit inited 

50 2004 8F C MOVZWL #SS$_BEVINACT,RO ; Else, set error return 
0c41 31 BRW 10_DONE ; Finish the request 


54 0180 ¢5 00 
0088 D4 =663_—Cos«OOE: 
O1A1 


10$: CDB(R5) ,R4 ; Get CDB address 
ee” ; Sync access to device 


MOVL 
SETIPL UCB$B_D 3 
; Insert at END of queue 


PB 
INSQUE (R3),aCDB 
BRW LOAD_PORT 


AWWAIAAAIAA AI IR PPPUPOPIPNPONOPONPoNonononopofpopornnrn 


PEAR E REE R EERE EPP PEPE PEPE 


—S et ed a = = 2 ss 2 2 2 
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ver 16-SEP-1984 00:38:36 AX/VMS Macro V04-00 Page 105 
UEST ON INPUT P 5=SEP=-1984 00:19: DRIVER. SRCIXEDRIVER.MAR; 1 (41) | 


em -SBTTL INPUT BUFFER = INSERT REQUEST ON INPUT PROCESS QUEUE AND MAP BUFFER 
; INPUT_BUFFER = INSERT REQUEST ON INPUT PROCESS QUEUE AND MAP BUFFER 


a att 


mo 

eal 
. 2 
—™ 
2o 
wm 
mr 
ze 
=> 
Do 
m- 
o-. 


; Functional “scription: 


This ramos, certs the IRP packet on the input waiting queue and 
; loads ®&: . CSR's. 


; Inputs: 


3 = IRP address 
R5 = UCB address 


IPL = FIPL 
; Outputs: 


RO,R1,R2 are destroyed. 
The request is completed. 


LALATORORORUROPUR) 2 ss oe CU 
O00 —9 900 ONNVNODWVWAIVAIAIVIVIIWVVIVIVIVIVIOIOIVIOOOIOOION 


OO O00 0009 00 09 09 69 09 09 09 SI NIN NN NS NN SP PA AAA AAA A MMIII & & 


R 
1 4844 
18 dk 
ne te 
1 4 § 
1 4850 
8 di 
1 4 § 
1 4854 
Ha 
ne i 
1318 4880 
1 4860 
Ha 
i318 868 
1 rt 5 -ENABL LSB 
1 48 $ INPUT_BUFFER1:: ; Insert vomeees on input queue 
54 0180 C5 00 1 48 MOVL CBSL_XE_CDB(R5) ,R4 ; Get CDB address 
F 1 1 4868 BEQL ; Br if no CDB 
50 024 8F 3C 1 4869 MOVZWL #SS$_DEVACTIVE,RO ; Assume unit is running | 
0 —O 1 4870 BBS #COB_STS_V_RUN,- ; Br if DEUNA/DELUA is running - error 
09 025A C4 1 4871 CDB_6_STS(R4) ,5$ : 
1 4 ¢ INPUT _BUFFER:: ; Insert request on input queue 
1 4 ASSUME UCBSV_XE_INITED EQ 0 
08 68 AS - % 4874 BLBS UCBS$WDEVSTS(R5),10$ ; Br if unit inited - okay 
50 20D4 8F oo 4875 33: MOVZWL #SS$_BEVINACT,RO ; Else, set error return 
0c12 1 ! ; § $: BRWwW 10_DONE ; Finish the request 
1 4878 ASSUME P2B_L_POINTER EQ 0 
56 =D : : 4 10S: PUSHL R6 ; Save a register 
1 ‘3 1 : Set up variant seppin info in UCB and CRB to allocate a set of map 
: : ? ; : registers for the buffer. 
56 3¢ 83 oO 1 4884 ° MOVL. @IRPSL_SVAPTE(R3),R6  ; Get buffer address 
A; 0 He AB 133F 4885 BICW3 #*C<VASM_BYTE>,- 3; Get byte offset 
7C A 1343 4 6 R6 ycasu BOF F (RS) ; 
32 A380 1 46 4 movw = IRP W_BCAT(R3) ,~ : Set Block size 
EA 1349 4 : UCBSW~BCNT(R5) : 
54 244A DO 1348 4 L UCBSL_CRB(R5S) ,R4 ; Get CRB address 
134F 4890 ASSUME VECSB"NUMREG EQ VECSW_MAPREG+2 
134F 4891 ASSUME VECS$B_DATAPATH EQ VECSB_NUMREG+1 
34 AG «60D4 O134F «C4 ¢ L CRBSL +VECSW_MAPREGTR4) ; Reset mapping info 
00000090 "'§ 16 1 23 4 8 G*1 cea AMAP ; Allocate map registers 
4750 €9 1358 4894 BLBC RO, 208 : Br if NOT allocated 
1358 4895 ME VECSB_NUMREG EQ VECSW_MAPREG+2 
1 8 489 ASSUME VECSB"DATAPATH EQ VECSB_NUMREG*+1 
3 AS D0 1358 489 VL CRBSL_INTD+VECSW_MAPREGTR4),- ; Save mapping info in IRP 
C A3 i 4 98 IRPSL-XE_MAP(R3) ; 
1360 4900 : Convert virtual buffer address to physical PTE address 


I 6 
VMS DEUNA/DELUA Dri 16-SEP-1 AX/VMS 0 V04-00 Page 1 
eT tREERT REQUEST ON INPUT P g- SEP=1 1382 88: #6: 34 YORIVER.s SXEDRIVER. MAR; 1 . 
1360 4901; 
9 EF 1360 49 § EXTZV S*#VASV_VPN,- ; Get PCBB page number 
50 “oo 800" 44 dO i 3 rh 4 MOVL aammege VEN gah Get SPT address 
ag 6041 DE 1 $ 4905 MOVAL (Rope ay: pit Littrecsh § Set pre paddres 
"0006090 o 1 1 49 § JSB ; Load t pcos pe registers 
EF 1377 49 EXTZV g710 : Get pals 6-BAl 
51 348 137A 49 8 W442. INTD+VECSW_ MAPREG(R4),R1 ; 
. "9 78 1370 490 ASHL #16,RT,R : aeos to high word 
51° 7C AS) BO 1381 4910 MOVW uceg, BOF F ( Set BAO-BA 
as 34 As F 3 491] INSV = CRBS. $-Ih “iatbsvecse. nAPREG(RA), = ; Set BA9-BA15 
40 A3 gf a 1318 MOVL nig XE_DGUNI (R3) 3; Save UNIBUS address 
54 10 AG DO 138F 4974 MOVL Re AURSTRUC(R4),R4 } Get CDB address 
56 BEDO 1393 4915 POPL ; Restore register 
1396 1319 SETIPL ueese DIPL(RS) ; Sync access to device 
0088 D4 = 63 —E 139A 491 INSQUE SCDB_Q_INPUT+4(R4) ; Insert at END of queue 
011A ST 1398 4918 BRW LOAD. PORT 
A 49 0 : Insufficient map registers 
56 BEDO 13A2 49 : 20$:  POPL R6 ; Restore R6 
50 0344 8F He 13A5 49 MOVZWL Zs INSFMAPREG,RO 3; Else, set error return 
OB9E 1 13AA $35¢ BRW 10_DONE ; Finish the request 
13AD 4925 -DSABL LSB 


Ee . , 


J 
upon yee = VAX/VMS DEUNA/DELUA Driver 197-560-1986 00:35:33 AX/VMS Macro v04-00 Page 107 _— 
FILLRCVLIST = FILL RECEIVE BUFFER LIST -SEP-1984 219: DRIVER. SRCIJXEDRIVER.MAR; 1 (42) | 
! ap 3 7 = -SBTTL FILLRCVLIST - FILL RECEIVE BUFFER LIST 
AD 49 § ; FILLRCVLIST = FILL RECEIVE BUFFER LIST 
AD 49 ? : Functional description: 
13AD 49 ‘ : This routine fills the receive buffer List up to the quota allocated 
13AD 4934 ; at unit initialization. It also gives any receive buffers allocated 
’ ns $3 5 ; to the receiver. 
: . $3 $ : Inputs: 
13AD 49 § : R2 = Buffer Address (ADDRCVLIST ONLY) 
! 4 re ot 3 R4 = CDB address | 
13AD 494g ; IPL = FIPL 
HRB G85 | outnues 
13AD 4966 RO-R2 is destroyed. | 
13AD 4947 ; ALL other registers are preserved. 
1 i838: | 
13AD 4950 * .ENABL LSB | 
13AD 4951 FILLRCVLIST:: ; Fill receive buffer List 
52 04 : ~ $336 CLRL Be :; No buffer here 
13AF 4954 ADDRCVLIST:: ; Add a buffer to the receive List | 
38 BB 13AF 4955 PUSHR #*M<R3,R4,R5> ; Save registers 
55 00C8 C4 00 1381 2228 MOVL CDB_L_UCBO(R4) RS ; Get UCB address of unit #0 
01 €1 1386 495 BBC  #CDB_STS_V_RUN,- : If BC device not running | 
5D 025A C4 1388 4958 CDB_6_STS(R4) ,408 
a4 cé B1 1385 rs 10$: CMPW te Be ; Can new block be allocated ? 
38 «6 1A «(13C3) «(496 BGTRU ie 3 If GTRU then no, stop loop 
52. OS 135 496 TSTL Re ; Buffer already allocated? 
18 sole ; ce t3ee BNEQ 208 ; Br if so | 
51 D4 13€9 496 CLRL R1 ; Zero size 
Al 13CB 496 ADDW3 #CXBSC_HEADER+- 3; Determine block size needed | 
13CC 4968 CXBSC_TRAILER,- : 
51 0088 C4 O04C BF 13CC 4969 COB_W_BSZ(R4) ,R1 3 
eoeees | 16 1 DS 4970 JSB G*E XE SALONONPAGED 3; Allocate the memory 
1¢ 50 «6€9 1309 4971 BLBC ° ; If failure then done 
08 A2. ‘51 34 13D $376 MOVW R1,CXBSW_SIZE(R2) : Insert size 
1 e 497 MOVB S*#DYNSC~CXB,- : Insert type 
OA A Ee 4974 CXB$B_TYPE(R2) ; 
00B8 C4 A2 13E4 $278 208: SUBW CDB_W_BSZ(R4) .- ; Subtract from quota 
OOBA C4 1368 497 CDB~W~QUOTA(R4) : | 
0 A2 08 90 13€B 7) 44 258: MOVB 3 FC_V_RECV,CXB$B_XE_FUNC(R2) ; Set function request 
009C C4 $6 OE 13EF 497 INSQUE (R2),CBB_Q_RCVBUF(RS) ~ ; Insert block on List 
D4 135F4 49 9 CLRL ; No more buffers given 
c= «1 : is $3 BRB 10$ 3; Continue 
13F8 49 : : Buffer allocation failure 


Kk 6 
KEDRIVER = VAX/VMS DEUNA/DELUA Driver 16-SEP-1984 00:32: AX/VMS Macro V04-00 Page 10 
area ht FILLRCVLIST = FILL RECEIVE BUFFER LIST ae 90:39:34 DRIVER. SRCJXEDRIVER.MA ° (23), 
13F8 4984 ; 
HH 49 5 $0s: SETBIT axnsy. STS BUF FAIL )~ ; Set buffer alloc failure 
24=«COos1 17 3 $ BRB ts ¥ ; And give any receives to device 
1400 49 $ 35$ CLRBIT #XMSV_STS_BUFFAIL : Clear buffer alloc failure 
1400 4990 CDB_L-DEVBEPEND(R hay : 
ett sd t ger ser 
0288 C4 91 140A 1398 CMPB = CDB_B_AQUOTA(R4),- : Fon we use the additional quota? 
BF ete lend 2998 ue ae + Or ife 
é r 
0288 (C4 «496 1413 499 INCB SRE _B_AAUOTAIRG) ; Else Trcrenent the additional 
D2 11 «+1417 «+499 BRB 5$ : Use buffer, but don't Let 
1012 t308 3 QUOTA go negative 
50 8808 jie 3053 “OS Pat BGg*° Bf rt dew 
00000000'GF 16 161 00¢ JSB G*COMSDRVDEALMEM t Deallocate buffer 
93 10 1424 5004 50S:  BSBB START RECEIVE : Start the receives 
8 BA 1426 5005 POPR #*M<R3,R4,R5> ; Restore registers 
05 1428 5006 RSB 
1429 5007 .DSABL LSB 


-IF DF RCV_DATAP 
: The following instruction also sets the default data path to the 
3; Direct Data Path. 


ASSUME VECSB_NUMREG EQ VECSW_MAPREG+2 
ASSUME VECSB-DATAPATH EQ VECSB_NUMREG*1 


CDB.L-RCVMAP(R4)CR71.- 7; Store mapping information | 
CRESC INTD*VECSH MAPREGERSS ; into’ CRE. 


PAM) 


: Try to allocate a buffered data path. If successful then use it, else 
3; use the Direct Data Path. 


L 6 | 
XEDRIVER = VAX/VMS DE /DELUA Driver 16-SEP-1984 :32: AX/VMS Macro v04-00 Page 1 
vet START RECEIVE sath ANY RECEIVE REQUES $731 bbe 0:39:34 LORIVER. SREJREDRIVER.MAR: 1 . (43) 
| 
Fg 9 if _ -SBTTL START_RECEIVE = START ANY RECEIVE REQUESTS PENDING 
16 : > START_RECEIVE = START ANY RECEIVE REQUESTS 
14 4 18 : Functional description: 
1429 15 : This routine attemptes to start any receives that may be pending. This 
1429 16 3; involves dequeuveing a free receive buffer, mapping it, and loading it 
1? : : : address and size into the device. 
14 3 i : Inputs: 
1409 ? ; R4 = CDB address 
i¢ ; ; : R5 = UCB address of unit # 0 | 
1429 4; IPL = FIPL 
1429 5025 ; 
1° : 8 § ; Outputs: 
1429 5028 : RO-R3 are destroyed. | 
1429 5029 ; ALL other registers are preserved. 
1429 5030 ; 
1439 3032 * | 
1429 50 g START_RECEIVE:: ; Start receive operation 
1429 5034 PUSHQ R6 3; Save R6, 
01 €1 142C 5035 BBC #CDB_STS_V_RUN,= ; Br if device is not running 
OF 025A C4 14 0 6 CDB_B_STS(R4), 10S ; 
57 1A AG 08 00 9 14 037 5$: #0,RMAX_C_RCV,CDB_B_RCVMAP(R4) ,R7 ; Get a free mapping slot 
1 183 O38 BEQL 1 3; Br if none - just exit 
53 009C D4 OF 143A 5039 REMQUE @CDB_Q_RCVBUF(R4) ,R3 ; Get a free buffer | 
04 1C 143F 5040 BvC 208 ; Br if buffer found 
1441 5041 10$ POPQ R6 3; Restore R6, R7 | 
05 1208 3048 RSB ; Return to caller 
144 044 : Mark slot in use and create buffer address/character count image 
177 bee 3; in receive buffer and load UNIBUS adapter map registers. 
144 hi 208: SETBIT R7,CDB_B_RCVMAP(R4) ; Mark slot in use 
$8 AS. s«57 8 144 be8 MOVB R7,CXB$B-XE_SLOT(R3) ; Save mapping slot index 
24.a5 14 049 MOVL  UCBSL_CRB(RS) .R2 : Get CRB address 
1433 3081 
14 ‘ 
14 4 
1s Gi 
ie 
14 § 
14 
14 
14 
14 
14 
1 
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z;t*® The driver no Longer uses the Buffered Data Paths for receive operations 
3*** because there is no upper Limit to the amount of time that the driver 
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M 
KEDRIVER = VAX/VMS DEUNA/DELUA Drive 1 4 00:32: AX/VMS Macro v04-00 Page 110 — 
area START_RECEIVE = START ANY RECEIVE REQUES g: Hie 138 90:76:34 YORIVER. SRCIJXEDRIVER.MAR; 1 ° 28) 
66 ;*** can hang onte the data path. Therefore, if there are other system devices | 
67 ;*** (such as RKO7s) which need the data paths then there is no guarantee as to 
‘ — when they will get one. 
PUSHL R2 ; Save R2 
7 JSB gf. POC eRR RATE ; Try to es a buffered data path 
7 POPL R2 Fer R 
7 ASSUME VEC$B -NUMREG Ea VECSW_MAPR 
: 7 ASSUME VECSB_DATAPATH EQ VECSB_N REG+1 
7 MOVL CRBSL INTDOVECSH MAPREGTR ),- ; Save number of data path | 
5 , CDB_C_RCVMAP(R4)CR7J] ; used. 
; , .ENDC =: DF_-RCV_DATAP 
; > Find next ring entry and insert data 
S619 AG OA 145 : MOVZBL CDB_B_NEXTRCV(R4},R6 Get next ring entry 
19 AG 96 1456 INCB DB7B-NEXTRCV(R4) ; Bump ring pointer | 
F8 8F BA 59 BICB #*C2MAX_C_RCV-1>,- ; Modulo rcv ring size 
19 AG 5c (DB _B XRERTREV(R4) ; 
2303 56 90 145 MOVB R6,CRBSB_XE_RING(R3) ; Save ring entry number 
56 SC A446 «D146 MOVL C06. ¥ BRRADDRUR4) LROI-RG ; Retrieve next ring entry address 
if PUSHQ 8 3; Save IRP, CDB address | 
6A 3 
6A ; Setup the ring descriptor entry for the recieve buffer. The length of the | 
6A 3; buffer, which is a constant, was initiated when the controller was first 
oA 3 started up, and so is not setup here. 
51 38 A3 GE MOVAB CXBS$T_R_DATA(R3),R1 3; Get receive buffer data addr 
02 51 B60 MOVW R1,RCV_Q0 SEGBL (RO) ; Set BAO- “oA A8 


MOVAL COB tiation R7),R7 Get snare ice, fe info slot address 


A447 DE 
7 INSV V_W_SEGBL ( ni» 5 from map reg 
07 a EXTZV are 3 Get BA16-BAT? also 
04 A6 30 0 MOVB RO. RCV_B jen Set BA16-BAl 
08 A6 «422 AS” BO 6 MOVW CXBSW_RE- “RibtRS) SRCV.. w rin (R6) ; Store unique request ID 
IF OF 

os tt CnBSL INT svEcsB, DATAPATH(R2),.R4 ; Get data path number 

54 D4 : CLRL R4 3; Use direct data path for rcvs 
D ASSUME yECSB -NUMREG EQ VECSW MAPREG*2 
52 02 A? QA D MOVZB (R7)°R Set number of map registers 
or = 1 MOVZWL (R7),R3 : Set first map register number 
00000000'GF 16 1494 JSB_-- G*10C SLOADUBAMAPN ; Load the map registers | 
oA POPQ R3 ; Restore IRP, CDB address | 
+3 : Disable interrupts and queve request to input queue 
90 , DSBINT UCase pPEPL(RS) sable interrupts 

05 A6 80 BF 90 14A4 MOVB NOUN, RCV B. FuaestRe) sive buffer to DEUNA/DELUA 
0086 (4 96 14A9 INCB OD vA" REDCAR @ nore receive in progress 
0088 D4 «=663~—Cis«OO#E 83 INSQUE 7,3C0B_ a Seven 4 : i Ingeteere rece ve buffer on 
n 
02 12 8 BNEQ 30$ : Br if not ee entry on queue 


N 6 
START RECE RNY RECEIVE REQUES 'S-SEP=19R6 OO:T9.2% FDRIVER eRe TREDRiveR.maRs1 2% {LS) 


] 


' 


06 10 1484 LOAD_PORT ; Request port % give request to DEUNA/DELUA 
: NT ; Re-enable interrupts 
FF76 31 148 5$ ; Let's try it again 


87 | 
DPESRS WIYN COMMAND REQU 'S-SEP-19B6 00:19:23 LDRIVER.SRESKEDRIVER.MaR:1 29° (day 
ea ~-SBTTL LOAD PORT = LOAD CSR'S WITH COMMAND REQUEST 
; LOAD_PORT = LOAD CSR'S WITH COMMAND REQUEST 
Functional description: 


XEDRIVER = VAX/VMS DEUN 
VOer005 LOAD_PORT = 


This routine loads the CSR's and PCBB with a command to process. 


Inputs: 
R4 = COB address 
R5 = UCB eddress 
IPL = DIPL 
Outputs: 


R4,R5 are preserved. 
RO-R3 may be destroyed. 


LOAD_PORT:: ort command 
BBCC 


a ed a a a = 2 ot 4 8 YS 2 2 = 4 8 
ee ee ae ee oe ee oe ee ee ee oe ee ee ee ee ee oe oe ee ee ee ee ee ee ee ee ee ee ee oe ee ee ee ee ee ee ee ee ee 
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; Load 
14 025A C4 03 —««€ES #CDB_STS_V_FUNC, CDB_B_STS(R4),10$ ; Br if function pending 
52. 24 ASCO MOVL - UCBSC_CRB(RS5) ,Re ; Get CRB address 
ASSUME IDBSL~CSR EQ 6 
52 2C B2 00 MOVL RBSC_INTD+VECSL {retne? Re ; Get CSR address 
53 0084 04 OF REMQUE @CDB_Q_INPUT(R4),R ; Get next IRP 
06 iC BvC ; Br if yor one 
025A C6 08 88 BISB2 #CDB_STS_M_FUNC,CDB_B_STS(R4) ; Indicate no function pending 
05 108: RSB ; Return to caller 
0223 C4 O07 90 20$: MOVB #ONI_TIM,CDB_B_TIM_DNI(R4) ; Start timer on DNI bit 
1B OA 3 4 69 CMPB JRPSB_TYPE(R3) -#DYRSC_CXB : ag thie a CXB? 
; Br es 
51 0006 (4—so9E 6¢ MOVAB CDB_G_PCBB(R4),R1 ; Get eche address 
OA OA AS 91 6 CMPB RPSB-TYPE(R3) ,ADYNSC_IRP ; Is this an IRP? 
2a (13 64 BEQL ; Br if yes 
o? BUG_CHECK NOBUFPCKT,FATAL ; Fatal error - what is it??? 
3 | 
e 3 Dispatch of CXB request | 
4 S0s: SDISPATCH CXBSB_XE_FUNC(R3),TYPE=B,- ; Dispatch on function request | 
9 <- i function ection 
7 <XE_FC_V_XMIT 40$>,- ; XMIT requested 
¢ : <XE_FC_V_RECV 50$>,- ; RECV requested 
74 
75 BUG_CHECK NOBUFPCKT,FATAL : Fatal error - not a valid IRP 
6 . | 
A: ; XMIT request | 
0098 D4 3 8 F 0 dos: INSQUE (R3),@CDB_Q_ XMTPND+4(R4) ; Insert CXB on WAITING queue 
0222 C4 05 1 MOVE  - #XT_TIM.COB_B_TIM_XMT(R4S ; Start xmit timer | 
48 8F 69 : MOVB #XE_PCSRO_M_INTE!XE_CMD_V_POMD.- ; Load command 
2 PCSRO(R2) :” and enable interrupts 


ae 
MEDR IVER = VAX/VMS DEUNA/DELUA Driver 16-SEP-1984 00:36:34 iy: Macro V04-00 Page 113 
v04- LOAD_PORT = LOAD CSR'S WITH COMMAND REQU 5-SEP-1984 00:19:23 ([DRIVER.SRCIXEDRIVER.MAR; 1 (44) 
| 
05 } 3 ! : : RSB ; Return to caller 
p : : RECV request 
OOAB D4 5 OF 1 1 8 S0$:  INSQUE (R3) @CDB_0_RCVPND*4(R4) ;_Insert CXB on WAITING queue 
48 8F 1512 51 MOVB = #XE_PCSRO[MTINTE!XE_CMD_V_PDMD,- ; Load command 
62 151 190 PCSRO(R2) 3” _and enable interrupts 
05 1317 138 RSB ; Return to caller 
1517 5193 ; 
W217 133 ; Dispatch of IRP request 
1215 138 50s: SDISPATCH IRP$B_XE_FUNC(R3),TYPE=B,- ; Dispatch on function request | 
1317 <- : function action 
1517 198 <XE_FC_V_LINIT _IN_INIT>,= ; Initialize request | 
1517 5200 <XE-FC_V-RESTART IR_INIT>,= ; Automatic restart 
1517 5201 <XE-FC_V_TESTD IN_TESTD>,- ; Self-test done 
1517 ; 6 <XE_FC_V_LDRING IN_RING>,= ; Setup ring descriptor | 
1517 0 <XE_FC_V_RDDPA IN _RDDPA>,=- ; Read default gehes. address 
1517 espe <XE-FC_V-WTPHYAD IR_PHYAD>,- ; Write physical address | 
1517 05 <XE_FC_LV_WTMULTI IN MULTI>,= ; Write multicast address List 
1517 2 06 <XE-FC_"V-WTMODE IN_MODE>,- ; Define mode 
1517 5207 <XE“FC"VSTART IN_START>,= ; Start XMIT/RECV process 
1517 5208 <XE_FC_V_RDCNTS IN_RDCNTS>,=- ; Read counters 
1517 5209 <XE_FC_LV_RCCNTS IN_RCCNTS>,=- ; Read and clear counters 
1517 5210 <KXE_LFC_V_MULTI IN_MULTIC>,=- ; Write new multicast list 
1517 5211 <KXE_FC_V_LDMEM IN_LDMEM>,=- ; Load DEUNA/DELUA memory 
1517 5 12 <XE-FC"V"RDMEM IN-RDMEM>,- : Read DEUNA/DELUA memory 
1517 521 <KXE_FC_V_UPST  IN_UPST>,=- ; Load and start micro-address 
1517 5214 <KXE_FC_V_LDSID IN_LDSID>,- ; Load system ID parameters | 
1517 5215 <XE_FC_V_RDSID IN_RDSID>,- ; Read system ID parameters 
1517 2 16 <XE-FC"V-STOPPR IN_STOPPR>,- 3 Stop xmit_ and receive process 
1517 1 <KXE_FC_LV_STEST IN_STEST>,= ; Perform DEUNA/DELUA self test 
1517 2 18 <XE_FC_V_READST IN_READST>,=- ; Read port status | 
1517 5219 <XE-FC"VICHMODE IN-CHMODE>,- §; Change the mode definition | 
1517 2 0 <XE_FC_V_STOP  IN_RSMODE>,- ; Reset the mode definition 
a 1 <XE_FC_V_MOPCTR IN_RDCNTS>,=- ; MOP read counters request 
1517 ¢ <XE_FC_V_LESTEST IN_ESTEST>,= :; Perform DELUA extended self test 
131% 7 . <ME_LFC_V_HALT IN_HALT>,=- ; Halt port (DELUA only) 
1554 5 
1386 § BUG_CHECK NOBUFPCKT,FATAL ; Fatal error = not a valid IRP 
1 
132 : IN_INIT: ; Initialize DEUNA/DELUA request 
133 1; Perform SELF-TEST on the UNA 
43 8F 90 138 i : MOVB #XE_PCSRO_M_INTE!XE_CMD_V_STEST.- ; Load self-test command 
3 1328 4 P R >and enable interrupts 
21 a3 1 90 15 5 MOVB #XE_FC_V_TESTD, IRPSB_XE_FUNC(R3) ; Set up next function 
00E6 = 31 136 § BRw CONTIN ; Contine the request 
136 8 : Check completion status of self-test and load PCBB address if okay 
156 40 IN_TESTD: ; SELF-TEST done 
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d 7 | 
= VAX/VM UNA/DELUA Dri 16-SEP-1984 00:32:5 AX/VMS Macro V04-00 Page 114 XED 
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7 41 BICcw3 443 PCSR1_M_DEVID,= et DEUA/D - status, 
50 0078 he as i $3 rk} CSR1(R2)7RO minus device id 
50 02 81 156A 504 CMPW ay _STAT_W_READY RO i Is the DEUNA/DELUA okay? 
1 13 156D 44 BEQL YES = good DEUNA/DELUA 
00c4 C4 3 AS 1 gf 45 MOVB eaete) (Re? COB_L _DEVDEPEND(R4) 3; Save self-test status code 
50. 6 6(O 9 F ze 1575 ‘3 MOVZWL zee SS CTRLERRR vos"! broken nrc eae 
02 09 o 1 157A 4 C PCSR V_XPWR, PCSRI(RB), 10$ ; Br if the XCVR power is okay 
By O1A4 BF C 157F 3 MOVZWL Fees MEDOFL{RO return the correct indicator 
1584 4 SETBIT #xms? 5"? ab isc. CDB_L _DEVBEPENDIRG) ; Save Internal error reason 
0262 31 ‘s 29 108: BRW REQ_COM_E ; Complete request in error 
4 1 0$: MOVW COB_L_PCBBUA(R >  NCBae (Re? ; Load PCBB UNIBUS address 
8 AS ited 73 8 13 2g : MOVB CDB-L-PCBBUA+2 tre) ),PCBB2(R2) ; 
41 BF 90 1599 5254 MOVB  #XE-PCSRO_M_INTE!XE_CMD_V ~GeTb eB = : Load command | 
6 159C 55 PCSRO(R2)~ : qgnable interrupts 
21 A3 03 90 1590 2$ MOVB #XE_FC_V_LDRING, IRP$B_XE * FUNC (RS) ;. Set next function 
00A 31 ten) : BRW CONTIN | Contine the request 
12ag 3g IN_RING: Setup = descriptor 
61 09 BO 15A4 pe MOVW #PB_FC_V_WTRING,PBB_B_ FUNC (RID function request 
50 00C0 C4 00 15A7 5261 MOVL CDBUL PLBBU ACR4S ,RO™ Get pipe” UNIBUS addre 
50 08 CO 15AC 7 6 ADDL arog id 1" DB *6_PCBB, ko: Compute RING DESCRIPTOR address 
02 Al 50 DO I5AF 5 86 MOVL 0,PBB-W_PCBB2(RT) 3 st tore ING DESCRIPTOR address 
42 8F 90 1583 5264 MOVB Oye cSr0_ M_INTE! XE_CMD_ V ~6E1 ay = Load command 
6 1386 3265 PCSROCRE)~ enable interrupts | 
21 a3 15 «490 «(158 3 66 MOVB 4#XE_FC_V_RDDPA, IRP$B_XE _buntcRs) ; Set next function 
0088 31 # «1588 67 BRw CONTIN™ ; Continue request 
128 2 8 IN_RDDPA: 
61 02 680 15BE 3 8 MOV ore. FC_V_RDDEFAULT,PBB_B renee ; Set function request 
42 8F 90 15C1 71 MOVB #XE “PCSRO_ ML INTE! XE _ CMB -V.6 ; Load command 
Ge 15C4 3 1 PCSRO(R2)~ ay oo By interrupts 
2103 03 90 15¢5 527 MOVE AXE FC_V_WTPHYAD, IRPSB_XE _FUNC(R3) 3 Set next’ function | 
7E 11 1308 5 ey BRE CONTIN ; Continue request 
1366 3 76 IN_PHYAD: : peste Bate har address 
0269 C4 O02 Al 00 15CB o “i MOVL PBB_W_PCBB2(R1),CDB_G_HWA cory a ave hardware physical address 
026D C4 06 Al BO 15D1 ee MOVW PBB_W_PCBB6(R1),CDB_ G_ HWA+4 
O26F C4 O02 Al 00 1507 7 MOVL PBB_W-PCBB2(R1),CDB_G_ nfs toes 8 Save current address 
ogee C4 06 Al B 15D 80 MOVW PBB WwW” PCBB6(R1),CDB-G_ PHYADR+4(R Ras : 
27 0268 C4 BB 1368 81 BLBS CDB-G_PHA(R4) , IN_MULCTT ; Br if ph Steel “address not there 
61 05 60 15€8 MOVW #PB-FC_V_WTPHYAD,PBB_B Pie (at) et function request 
02 a1 0263 64 DO 15€8 § mov. CDBG _PHACRS) Ob Y. PcBB2 (RI) Store physical address 
over th 6 $f 73 09 13¢7 5 MOVL EDB-G-PHAGRA) COB_G-PRYADR(R4) ‘Store current address 
0273 (4 OO 1 C4 15F MOVW  COB~G-PHA+4(R4) ,CBB-G_P PHYADR#4 (RG) 
42 8F 80 1605 : vB i matt S a_ Mare SKE? ~CAD_ - =GETGRD jg Zommane | 
21 Ad ? 90 1809 9 MOVB #XE_FC_V_WTMULTI, IRPSB_ xé -FUNC(R3) ; Set next function 
A 11 1600 ’ Bke CONTIN™ ;"Continue request | 
1808 3 IN_MULTI: : Write multicast address List 
0276 C4 9 160F 38 = TSTB CDB_B_MULTI(R4) ¢ Any. ee jes 
3 161 94 BEQL IN wise one Os a write mode 
1 ; 8 1813 95 MOVW #PB_F WTMULTI,PBB_B_ rowed) Set function request 
50 Boco C4 09 1618 3296 ROVE —CDB“L-PLBBUACR4) “R : Get bebe UNIBUS address ; | 
00000054 8F CO 161D 529 ADDL #CDB_G_MUDB-CDB_G_PcBB.RO ; Compute address of aulticast list | 
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02 Al. 50 1624 9 MOVL RO. PBB AW W_PCBB2(R1) Store address of multicast List 
05 Al 0276 ce 8 1628 38 MOVB Bethy A. rape gree. W pcbedst (R1) : Set number of entries 
42 8F 90 16 F 0 MOVB 6.8 AU M_INTE!XE-CAD_ VG eTCne. Load command 
be 16 1 rERotae) 4, ghab ole interrupts 
21 a3 90 1632 4 MOVB axe FC_V_WTMODE, IRP$B_XE. * FUNCCRS) Set next function 
|; ee 1 ? BRR CONTIN™ 7 Continue request 
16 05 IN_MODE: Define mode 
61. OD 4 16 $ MOVB #PB_FC_V_WTMODE ,PBB o° ptUNC CRI) R1) ; Set function request 
02 Al 0e58 C4 B60 1638 MOVW COB_W_MOBE (R4) 680 (R1) ; Define new mode 
42 8F 90 1641 8 MOVB #XE~PCSRO_M_INTE!XE_ BAS v “ce tem, - ; Load command | 
2 1644 530 PCSRO(R2)~ and_ enable interrupts 
21 A3 § 90 1645 5310 MOVB ag FC V_START . IRPSB. XE _FUNC(R3) ; Set next function 
NTIN: INSQU -CDB_Q_INPU ; Insert at front of input queue 
0084 (4 6 OE 1649 11 CONTI i SQUE (R3),CBB-Q_INPUT(R I f f i 
O Sit panee 
164F 14 IN, CHMODE : ; Change the mode definition 
164F 15 SUME NMASC_STATE_ON EQ 0 
164F 1§ ASSURE NMASC— STATE “OFF EQ 1 
50 D4 164F 1 CLRL f ; Assume we don't have to define mode 
0c 0008 ¢5) =€8 1651 2318 BLBS UCBSB_XE_PRM(R5),10$ ; Br if not sreulecunes user 
OF E2 1656 5319 BBSS #PB_MOD_0_PROM,- ; Else change , fo roa tscuous mode 
06 0258 C4 1658 5320 COB_W MODE CRS), 10$ 3 ..and ski ready se 
0250 C64 94 165C 5321 CLRB CDB_B_PRM(R4) ; Set new c arectectel c fn COB 
50 06 1660 5 § INCL =6R ; Indicate we have to define the mode 
OD OODC cS-~—sCEB 1966 23 10$: BLBS UCBSB_XE_MLT(RS),20$ ; Br if all multicasts not enabled 
OE E2 1667 5324 BBSS #PB_MOD NAL,= ; Else, set to enable all mits 
07 0258 C4 1669 RY 5 CDB_W RODE (RS), 20$ 3 ..and ski p fa already enabled 
O25E C46 94 1660 5326 CLRB CDB-B_MLT(R4) : Set new characteristic in CDB 
50 9} C8 1671 5327 BISL #1,R0™ ; Indicate need to define the mode 
4250 €9 1674 5328 208: BLBC RO,IN ; Br if we don't have to define mode 
61 0D 90 1677 5329 MOVE #PB_FC_V WIMODE, PBB 8 FUNC(RI) ; Set function request | 
02 Al 0258 C4 B60 167A ; 0 MOVW COB_W BONE tate BQ PcBB2(R1) Define new mode 
42 8F 690 1680 1 MOVB #XE-PTSRO INTEC RE CMD _V_GETCM nb.- ; Loed commend 
62 168 ¢ PCSROC Bye" and enable interrupts | 
21 A3 0c 90 1684 5 MOVB #XE_FC_V wLTl, IRP$B_XE _FUN cCR3) ; Set next function | 
11 1986 ; : BRB CONTIN™ “; Wait for next function | 
168A 6 IN_RSMODE: Reset the mode definition 
61 OD 90 168A ? MOVE -#PB_FC_V_WTMODE,PBB_B.FUNC(R1) ; Set function request | 
02 Al 025864 BO 16 p 8 MOVW § CDB~w_MOBE(R4),PBB_@_PCBB2(R1) ; Define new mode | 
40 11 1693 2 BRB DONE ~ ; Request is complete | 
1633 41 -ENABL LSB 
169 +g IN_RCCNTS: ; Read and clear counters request 
61 08 90 1695 43 MOVB #PB_FC_V_RCCNTS,PBB_B_FUNC(RI) ; Set function request 
169A 45 IN_RDCNTS: ; Read counters request 
61 OA 90 169A +8 MOVB #PB_FC_V_RDCNTS,PBB 5-8. FUNC (RI) Set function request 
50 99¢0 C4 00 1690 5347 10$:  MOVL CDBTL PLBBUACRE S.R t PéBB UNIBUS address 
14 #C Joke 3 ADDL aye DB_G_CUDB-CDB QP PCBB, Rb han A Counter UDB address 
02 A1 50 00 16A 4 MOVL PBB-W_PCBB2(R1) je Counter UDB address 
06 Al 0040 a 80 16A9 5350 MOV FU6B CTR7K_LENGTH,PBB_W pcs BO (RI det size of counter bik 
42 8F 16AF 1 PEND1: MOVB nyt apes RO_A_ INTE! XE _CAD-V Load port command 
6¢ 168 § PcsRO. RB) 3 A dat interrupts 
0090 D4 «6 Of 198 22 PEND: a (R5),@CDB_Q_DONE+4(R4) ; rt... on waiting queue 
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1689 “5 -DSABL LSB 
1869 25 IN_MULTIC: ; Write new multicast address List 
148 30 1689 28 BSBW MOVE MULTI 5 Copy the multicast address List 
6} 0 BO 16BC 5 MOVW #PB_FC_V_WTMULTI,PBB_B_FUNC(RI) ; Set function request 
50 0cO0 fr 08 16BF 60 MOVL COB-L_PCBBUA(R4) ,RO - Get PCBB UNIBUS address 
50 00000054 8F CO 16C4 61 ADDL etvB G_MUDB-CDB 6_PcaB,RO ; Compute address of multicast List 
02 Al. 50 00 16¢B 66 MOVL RO,PBB-W_PCBB2(R1) ; Store address of multicast List 
05 Al 0276 C4 90 16CF 6 MOVB C06_B MUCTI(R4) ,PBB_W_PCBB4+1(R1) ; Set number of entries 
42 8F 90 16D 64 DONE: MOVB #XE-PCSRO_M_INTE!XE-CAD_V_GETCMD,- ; Load command 
$2 1608 5365 PCSRO(R2) ;" and enable interrupts | 
011 31 1908 $6 BRW REQ_COM ; Request is complete 
16DC oe IN_LDMEM: ; Load DEUNA/DELUA memory 
61 11 BO 16D¢ : #PB_FC_V_LOADMEM,PBB_B_FUNC(R1) ; Set function request | 
50 Q00CO C4 DO 16DF 0 MOVL CDB-L_PCBBUA(R4) ,RO ; Get PCBB UNIBUS address 
50 00000090 8F CO 16E4 71 ADDL #COB_G_SCRUDB-CDB_G_PCBB.RO ; Compute address of scratch UDB 
02 Ai_ 50 00 16€B 5 if MOVL RO, PBB" W Pose (Rly ; Store address of scratch UDB 
50 32 A3 80 Jerr 2 iS MOVW IRPSW_BCAT(R ),RO ; Get user buffer Length 
183 83h : The following rounding is required by the DEUNA/DELUA hardware. 
16F3 5376 ; The eoune ine should have no effect on the buffer size, since 
16F3 2 AA 3 the allocation routine rounds to a multiple of 16 bytes anyway. 
16F3 5379 ° ASSUME P2B_T_DATA LE 12 3: For round ing to be valid 
9 3° 06 bo ane geet RO - ; Round up buffer size 
0166 C4 50 60 16F8 333 MOVW RO,CDB_G_SCRUDB(R4) ; Set size of load 
40 A300 16fD 538 MOVL  IRPSL_RE-DGUNI(R3),- ; Store user UNIBUS buffer address 
0168 C4 1709 84 CDB_G-SCRUDB+2(R4) 2 
44 BO 170 385 MOVW IRPSL_XE_UPADR(R3) ,- ; Set IDBB internal address 
O16C C4 1706 86 CDB_G_SCRUDB+6(R4) $ 
a: Hf 44 ; tf BRB PEND1 ; Request is pending 
1708 39 IN_RDMEM: ; Read DEUNA/DELUA memory 
61 10 60 1708 4! #PB_FC_V_DUMPMEM,PBB_B_FUNC(R1) ; Set function request 
0 00cO c4 00 1706 91 MOVL CDB-L_PCBBUA(R4) ,R ; Get PCBB UNIBUS address 
50 00000090 8F cO 171 3 ADDL #CDB_G_SCRUDB-CDB_G_PCBB.RO ; Compute address of scratch UDB 
02 Al. 50 D0 I71A 9 MOVL RO,PBB-W preee (Rly ; Store address of scratch UDB | 
50 32 A3 80 al 34 MOVW  IRP$W_BCRT(R3),RO ; Get user buffer Length 
17 %6 : The following rounding is required by the DEUNA/DELUA hardware. | 
17 97 3 The rounding should have no effect on the buffer size, since 
4 38 : the allocation routine rounds to a multiple of 16 bytes anyway. | 
17 400 ° ASSUME P2B_T_DATA LE 12 : For rounding to be valid 
$0 30 D6 i c $3) puch R 5 ; Round up buffer size 
AA ° PY eee | 
0166 C4 BO 1727 208 MOVW RO,COB_G_SCRUDB(R4) : Set size of load 
40 A300 172C 5404 MOVL  IRPSL_RE DGUNI (R3) .- : Store user UNIBUS buffer address | 
0168 C4 172F ret CDB_G_SCRUDB+2(R4) $ 
44 BO 17 4 $ MOVW IRPSL-XE_UPADR(R3),- ; Set IDBB internal address 
016C ci 17 4 CDB_G_SCRUDB+6(R4) 3 
FF 31 4 : rt $ BRw PEND1 ; Request is pending 
1738 5410 IN_UPST: ; Load and start micro-address 
61 OF 60 1738 5411 MOVW #PB_FC_V_LSUADDR,PBB_B_FUNC(R1) ; Set function request 
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$3 a B0 1744 tig MOVW ig a xe au ue SOIR) © ; Set IDBB UNIBUS address 
FFSF = 51 1743 ret BRW DONE.” ; Request is complete 
1746 218 IN_LDSID: ; Load system ID parameters 
8 1r48 41 MOVW #PB_FC_V_WTSYSID,PBB_B_ FUNC(R1) ; Set function request 
San DO 174 418 MOVL  CDB-L_PCBBUACR4),R ; Get PCAB UNIBUS address 
0 “dogobo C ee 4] ADDL 4 G. S1DUDB-CD8 G_PCBB,RO ; Compute address of SID UDB 
dO «(175 420 MOVL By ree PCBB2(R1) ; Store address of SID UDB 
1759 5421 ASSUME P26 j POINTER EQ 0 
50 2C B83 0 1759 54 § MOVL Sire c gy bret 0 ; zoe address of system ID parameters 
O16E C4 = =60 D 175 4 mova 0) SIDUDB(R4) Copy system ID parameters 
06 Al 04 80 176 4 4 MOVW = #4, P66. W ~BragetRt) j wri only ¢ words - all others | 
FF6C 83=_: 3331 1788 r § BRw DONE ; Request is complete 
1769 5428 IN_RDSID: Read system ID parameters | 
6 12 BO 1769 5429 MOVW #PB_FC_V_RDSYSID,PBB_B_ FONCRI) Set function request 
50 0coO c&)~—ss«#0 17e6 430 MOVL CDOB-L_PCBBUA(R4) ,RO ; Get Pcbe UNIBUS address 
50 00000098 4 CO 1771 5431 ADOL #CDB_G_SIDUDB-CDB_G_PCBB,RO ; Compute address of SID UDB 
Al 0 o0 1778 54 ; MOVL RO. PBB-W_PCBB2(R1) ; Store address of SID UDB 
- ie B0 Vere ? ? MOVW 7 #<UDB -Sieasthine - ; Set size of UDB | 
FF2C 836 31 ive ; 2 BRW PEND ; Request is pending 
7 437 IN_STEST: ; Perform DEUNA/DELUA self-test 
43 8F 90 17 438 MOVB #XE_PCSRO_M_INTE! XE_CMD_ Ve STEST,- ; Load command 
62 1786 439 PCSRO(R2) ~ ;~ and d enable interrupts 
02 8A 178 440 BICB #COB_STS_M_RUN,- Clear the RUN bit 
O25A C4 1789 5441 COB_B_STS(R4) : 
FF2 31 178C atts BRW PEND ~ : Hold the request pending 
rer acer ; until ONI is set 
HA eee2 IN_READST: ead port status 
61 OE R9 178F rey | MOVW #PB_FC_V_RDSTATUS ,PBB_B_ fun cRt ; Set function request 
FFIA 31 Ire reef BRW PEND1 ~ ; Request is pending 
1795 5449 IN_STOPPR: stop & XMIT/RECV processes 
4F 8F 90 1795 5450 MOVB #XE_PCSRO_M_INTE!XE_CMD_ i _5TO ; Load command 
62 1798 5451 PCSRO(R2)~ ; _and enable interrupts 
02 8A 1799 re BICB #COB_STS_M_RUN,=- 3; Clear the RUN bit 
025A C4 1798 545 CDOB_6_STS(R4) F 
11 179 $28 BRB REQ” COM ; Request is now complete 
17A 486 IN_START: start XMIT/RECV processes 
44 8F 90 I7A 45 MOVB #XE_PCSRO_M_INTE!XE_CMD 4 STAR ; Load command 
6¢ 17A 458 PCSRO(R2)~ ~;" and “yr fh. interrupts 
oasa cee The 8c80 BIse BB StS cRe) ee oe ee | 
55 1C AS 00 117A 461 MOVL PRPSL UCBCRS) .RS ; Get UCB address 
10 A8 17AD 406 BISW #UCBSA_XE_RUN,- : Here also 
68 AS 17AF 546 UCBSW_BEVSTS(RS) ; 
03 AA 1781 5464 BICW #UCBSA_INT!UCBSM_TIM,- ; No timeout is possible now 
64 A5 1783 5465 UCBSW_STS(R5) : 
178 46 SAVIPL ; Save the current IPL for WFIKPCH 
178 46 WFIKPCH START_CONT,#2 ; Wait 2 seconds for hardware state 
17¢ ; to get set 
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4: $68 START_CONT: ; Continue with startup 
17¢ 4 9 CLRBIT evceey TIMOYT ,UcBSW_STS(RS) ; Clear timeout status 
52 24 a5 00 17C 47 MOVL UCBSL_CRB(R5)R ; Get CRB address 
17¢B ti¢ ASSUME ty 444 CSR EQ 
ie 8 D0 17CB 547 MOVL @CRBSC_INTD+VECSL_IDB(R2),R2 ; Get CSR address 
DD 17CF 5474 PUSHL R ; Save UCB address 
19 10 1701 5475 BSBB age.con 3 Finish the startup request 
55 8ED0 1703 $78 POPL R 3; Restore R 
0 1708 ef RSB ; Return to timout processing 
1707 25 IN_ESTEST: 3; Perform the DELUA extended self-test 
48 8F 90 1707 54 MOVB #XE_PCSRO_M_INTE!XE_CMD_V_ESTEST,=- ; Load command 
8g 17DA 5481 PCSRO(R2) 77 and enable interrupts 
0 8A 17DB 54 ¢ BICB #COB_STS_M_RUN,= ; Clear the RUN bit 
025A C4 1700 54 CDB_B_STS(R4) : 
FE 31 +17€ 484 BRW PENG ; Hold the request pending 
Ve $082 3; until ONI is set 
17E 89 IN_HALT: ; Halt the port (DELUA only) 
4E 8F 90 1763 5488 MOVB #XE_PCSRO_M_INTE!XE_CMD_V_HALT,- ; Load command 
62 1766 5489 PCSRO(R2) and enable interrupts 
02 8A I17E etee BICB #CDB_STS_M_RUN,=- ; Clear the RUN bit 
025A C4 17E9 5491 COB_B_STS(R4) ; 
17EC $38 7BRB REQ_ COM ; Request is now complete 
iFEC $294 
3+ 
17EC 5495 ; Complete request 
pee Sc97 
17EC te REQ_COM: ; Request complete 
50 01 9A I17EC 5499 VZBL S*#SS$_NORMAL ,RO 3; Indicate success 
17EF 5500 REQ_COM_ERR: ; Complete request in error 
3A AS 50 BO I7EF 5501 MOVW RO, IRP$W_XE_STATUS(R3) ; Set completion status 
0089 D4 63 OF 17F3 30¢ INSQUE (RS),aCDB_G-POST+4(R4) ; Insert IRP on posting queue 
5302 a2 0 1758 330 MOVW = PCSRI(R2)7R3 : Fetch the CSR contents 
 . 8 17FC 5504 ASHL #16,R3,R3 3; Shift to high word of R3 
53 62 80 1800 5505 MOVW  PCSROCR2) RB : Fetch remaining CSR contents 
OOFE 1 1803 5506 BRW SCHED_FORK ; Schedule a fork process 
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! ° 8 BA ~SBTTL DONE_INTR = DEUNA/DELUA COMPLETION INTERRUPT SERVICE ROUTINE 
i ? 19 ; DONE_INTR = DEUNA/DELUA COMPLETION INTERRUPT SERVICE ROUTINE 
: ? \§ : Functional description: 
1806 14 : This routine services the interrupts generated by the DEUNA/DELUA for 
: $e 316 ; completion of requests. 
Og 31% : Inputs: 
06 319 : OO(SP) = ADDRESS OF UNIT IDB ADDRESS | 
1806 521 : RO,R1,R2,R3,R4,R5 ARE AT O4(SP) TO 1C(SP) 
Ie Be 
1806 eh IPL = DIPL | 
1806 3306 ; Outputs: | 
1806 3 § : THE INTERRUPT IS DISMISSED | 
1806 i 0 : IMPLICIT OUTPUTS: | 
1308 ; ; ; A Fork process is started to check ring entries. 
1806 33 4 BONE_INTR:: ; DEUNA/DELUA done interrupt 
54. 9E DO 1806 5535 MOVL a(SP)+,R4 ; Get IDB address 
55 18 A&4 DO 1809 22 $ MOVL IDBSL_UCBLST(R4) ,R5 ; Get first UCB address 
1800 5 ASSUME IDBSL_CSR EQ 0 
52. 64 00 1800 5538 MOVL (R4), ; Get CSR address 
54 0180 ¢? DO «(181 2273 MOVL YS SSE AECOBERS) AM : Get CDB address 
2s \3\ 540 BEQL $ ; Br if CDB not allocated 
00 €1 181 220! BBC #COB_STS_V_INITED,=- ; Br if NOT inited 
2E 025A C4 1819 245 COB_6_STS(R4),5$ 3 
06 €0 181D 554 BBS #CDB_STS_V_ERR,- : Br if there was an error 
28 025A C4 1BIF 5544 CDB_6_STS(R4),5$ : 
2 a 90 1 ; 545 MOVW PCSRITR2) ,R3 3; Fetch the CSR contents 
53 5 1 1 278 ASHL #16,R3,R3 : Shift to high word of R3 
53 620 «BO (1828 «554 MOVW PCSROCR2).R3 : Fetch remaining CSR contents | 
07 5 avn 238 BBC #XE_PCSRO_V_FATL,R3,1$ ; Was FATL set (DELUA only) ? 
53 FFFFOOOO &F A 1 54 BICL2 ore rer ee RS : If so, then zero PCSR1 bits 
53 F8 8F 8 ! : $29 1$: ASHL #-8,R3,R1 3 Shift out port command 
1835E 38¢ : The interrupt bits can ony be cleared by uri ting one's into them, therefore 
: : 237 ; we will write one's into all bits which already have one's. 
01 a2 51 20 1 5 555 ° MOVB = R11, PCSRO+1(R2) ; Release interrupt interlock | 
0853 07 £0 184 336 BBS #x€_PCSRO_V_INTR.R3,10$ ; Br if valid interrupt | 
5 19 8 1 46 55 BISL2 #XETPCSRO-MILLINT,R3  ; Indicate cause of error | 
3 11 : rs 28 BRB 15$ : Schedule a fork process 
OOAA 31 ; ie 69 5$: BRW INTEXIT ; Long branch to INTEXIT 
184E é > We will chest for any errors at all, and then for fatal errors only. 
: rt 287 3 We do this for speed, since error cases should be the exception. 
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53 C700 8F 83 184 65 10S: BITw #XE_PCSRO_M_USCI!- ; Any errors? 
1 66 XE_PCSRO_M_FATL!- : ts 
: é KE-PCSROCMCRCGI i oe | 
1 $3 HECPCSR “M~SERI,R3 : hes 
78 #13 «185 0 BEQL 208 ; Br if NOT | 
16 53 5 El 185 71 BBC #XE_PCSRO_V_RCBI,R3,13$ ; Br if FATAL error 
0 AB 1859 278 BISW #COB_STS_A_RCBI,- :; Indicate RCBI error 
025A C4 1858 7 COB_B_STS(R4) 5 
1 f 74 INCC COB_W feat Tb ; BUMP the counter 
53 ¢300 8F B83 186 75 BITwW #XE-PCSRO_M_USCI!- 3; Is it also a FATAL error? 
186d 5576 XE_PCSRO_A_FATL!- : toa 
186D 7 XE_PCSRO_M_PCEI!- $ eee 
16D 3578 XE-PCSRO-M~SERI,R3 : ee 
SE i 186D 7 BEQL 208 ; Br if NOT 
53 4300 8F B63 1 of 289 13$: BITw #XE_PCSRO_M_USCI!- ; Is this a fatal error? | 
1 4 5 1 XE_PCSRO_A_FATL ! = e eee | 
OA 1 1874 258 BNEQ 15 Ppeeipens toe 2 : Br if YES | 
; Br 
50 53 FO 8F 1 1876 5584 ASHL #-16,R3,R0 ; Shift down PCSR1 contents 
50 03 91 1378 585 CMPB #XE_STAT_V_RUN,RO ; Is this the run state? 
13 187E 55 § BEQL ; Br if yes - ignore error indicator 
1880 38 15$: SETBIT #XE_PCSRO_V_USCI,R3 : Set fatal error indicator 
1884 5588 SETBIT #COB_STS_0_ERR,- ; Ignore futher interrupts | 
1884 5589 DB_6 _STS(R4) . 
025A C 0 8A 188A 5590 BICB #COB_STS_M FUNC, CDB_B_STS(R4) : Indicate function is pending 
0006 C4 90 188F 223 MOVB COB_G_PCBBTR4) ,- ; Save current PCBB contents 
OOCC C4 1893 39¢ CDB"B- SPARE (R45 : in temporary cell for now | 
ones OF B0 1338 237 MOVW argue V_RDSTATUS,=- ; Request the PORT STATUS 
42 af 90 1898 595 MOVB #XE SPCSRO_M_INTE!XE_CMD_V_GETCHD,- ; Fetch the port status | 
1895 299 TIMEWAIT fe aXe PCSRO M_DNI,PCSRO(R2) .W 3; Wait for ONI or 50 usec 
OOCcc C4 90 1864 5598 MOVB _B_SPARE (RZ) >= ; Save previous PCBB contents 
0007 C4 18¢8 5599 CDB_G_PCBB+1 (R4} > in high byte of PC 
2. C11 13c8 ret BRB 0$ ; Schedule a.fork process 
$3 53 08 1 isc O86 20$: BBC #XE_PCSRO_V_DNI,R3,30$ ; Br if not a completion interrupt 
025A c4 0 8 18D1 560 BISB #CDB_STS_M FUNC, CDB_B_STS(R4) ; Indicate function complete 
0223 (4 94 1806 5604 CLRB = CDB_B_ TIM _BNI(R4) 3 Stop ONI timer 
52 008C Be oF ' +3 $03 RERQUE SCD6_G_DORE(R4) .R2 3 set yaiting packet 
: Br none 
o006 eS 7D : e 607 MOva 1 ae ty Pet ; Take snapshot of PCBB | 
00B0 04 «66 OE : £3 609 25$ jeseye (Re) ,SCOB_@_POST+4(R4) 3 sneers packet on posting queue | 
: : Sav | 
Fec9) = 30s 1 9 611 BSBW LgAo_Pont ; Load CSR's with next command 
18F oi¢ POPQ ; Restore R35, R4 
oc 10 ! ; a1? 30$: BSBB SCHED_FORK ; Schedule a fork process 
18F 615 INTEXIT: : Exit interrupt 
50 8& 7D 18F O16 MOVa (SP)+,RO ; Restore Regs 
52 HH 7D 18FB 561 MOVa (SP)+,R2 
54 E 7D 18FE o18 va (SP)+,R4 : 
02 1901 561 REI 3; Dismiss the interrupt 


| 

R3 is cleared if SCHED_FORKC entry. 

R4 is destroyed. 

R5 = COB address 

If XE_PCSRO_V_USCI is set in PCSRO, then the following is returned: | 
} 
| 
| 


CDB_L_PCSRO(R4) = PCSRO and PCSR1 values 
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yon 008 SCHED_FORK = SCHEDULE THE FORK PROCESS -SEP-1984 t 89:38:33 DRIVER.SR REIX XEDRIVER.MAR; 1 . (46) | 
9 .SBTTL SCHED_FORK = SCHEDULE THE FORK PROCESS | 
4 ia «SBTTL SCHED-FORKC = SCHEDULE THE FORK PROCESS WITH R3 CLEAR 
9 ; SCHED_FORK = Schedule the fork process 
2 3 SCHED-FORKC = Schedule the fork process with R3 clear 
> Functional description: 
9 : This routine is called to schedule the error and !/0 completion fork process. 
9 ; The Last controller port and CSR values are saved for examination. If the 
9 ; fork process is already pending, only the last CSR values are saved if there 
9 3 was an error. 
; Inputs: 
: R3 = Last PCSRO and PCSR1 values 
: R4 = CDB address 
; IPL = DIPL or higher 
: Outputs: 


DARD DR_.D AAAs & Be BB ENN II nononornonononn 


a a ed a ad 
FUN $9 OD NAME WIN $9 OD NAN E WW 9 ODNOAOUE WH OOONOAOUES WN oO 


DV IVIVIVPVLIVSVLVSULUSIVSIVSVSVIVSIVSUSUSUSUSVUSVSVSVSUS USUI VOS USSU SUS IASI OSIOSIUSIOSIOSIOSIOSIOSIOS 


DDD D-DD DED. DDD DDD PP PPA AAPA AP PAA AA AAA AAA AA AA AAA AO 


SCHED_FORKC:: ; Schedule fork process, clr R3 
53 D4 0 LRL R3 ; 7, device error 
4 SCHED_FORK: : Schedule fork proc 
OC 025A C6 O02 €E2 tl COB sTarl-eo 0” PEND, CDB. _B_STS(R4),10$ ; Br 7 fork pending 
55 54 00 A MOVL : Get CDB fork block address 
cose er OF 0D PUSHAB 5° FORK PROC : Else, set address of fork process 
00000000'°GF 17 19 JMP G*EXESFORK : Schedule the fork and return 
04 53 98 —1 16 10$: BBC #XE_PCSRO_V_USCI,R3,20$ ; Br if not error 
10 Ad DO 191A MOVL  R3,CDB_L_PCSRO(R4) : Save last CSR values 
05 1E 20$: RSB ; Return to caller 


om 


5 | 


ae 
KEORIVER = VAX/VMS DEUNA/DELUA Driver 16-$ p= AX/VMS Macro V04-00 Page 122 | 
yon 008 FORK_PROC = Error and completion fork pr g7$65 1986 88; i$: 34 LORIVER. SRCIXEDRIVER.MAR; 1 ° (25), 


131 Bs -SBTTL FORK_PROC = Error and completion fork process handling 
a gi . FORK PROC = Error and completion fork processing 
Hb a on8 : Functional description: 
131 ere : This routine is called as a fork process to handle errors and all completions 
191F 5673 ; pending. 
191F 5674 ; 
ba of? ; Inputs: 
191F er : R3 = Last SELO and SEL2 values | 
191F 4 3 R4 = CDB address 
Itt 44 3 RS = CDB address 
191F 568) IPL = FIPL | 
191F ess ; Outputs: | 
191F 5685 ; RO-R5 are destroyed. 
191k 5689 | 
OAOE* 4h ret] : _ peat ; Offset to timeout routine 
1921 2850 FORK_PROC: : ;_Err or eesme cet ion fork process | 
1921 5691 CLRBIT #CDB_STS_V gor, PEND, CDB. 8 STS(RG) steer rere process flag 
1¢ 53 08 €1 1927 036 #XxE_PcsrO_9_usc r if not an 
192B 569 SETBIT #XMSV_ERR-FATAL,CDB_L “DEWDEPEND (Ra) 3 Indicate fatal error 
55 53 F8 ef 78 1931 5694 ASHL #- . Get ate byte of PCSR 
ogc? C4 5 90 1396 695 MOVB R5 épB L DEVDEPEND+3(R4) ; 5 save con he byte of PCSRO 
55 00c8 C4 DO 1938 5696 MOVL  CDB_L_OCBO(R4),R ; Get 0 address 
0082 (> 86 1940 3697 INCH CBSUTERRCNTCRE) Sump. srver. count | 
agi = 31 1968 638 BRW SHUTDOWN_UNA Shutdown the DEUNA/DELUA device 
Hf 700 : Complete any requests on completion queue | 
53 OOAC D4 OF 1947 5702 fos: REMQUE @CDB_Q_POST(R4) ,R3 ; Get next completed block 
1¢ 194C 570 BVC 0$ ; Br if got one 
O1F3 39 1946 704 BSBW SCAN_LISTS ; Scan XAIT/RECV Lists | 
0 132 g 5 RSB ; Return to caller 
195 , ; : Found a completed block - finish it | 
OA OAA3S 91 195 709 20S: CMPB jrese_ TYPE(R3) ,S*#DYNSC_ 4, Was it an IRP? 
06 13 195 710 r if yes - complete it 
1328 ay BUG_CHECK NOBUFPCKT,FATAL : Else. atal error 
198¢ n§ : IRP packet completion - branch to proper completion handling routine. 
38 2 a 9A 1326 715 $08: MOVZBL IRPS$B_ xe FUNC(R3) ,R2 ; Get function type 
5 CA d0 136? ay SD1SPat ancl IRPSL_ ucesn ropes _. : Set UCB address 
1398 oe a. “action | 
1964 57 9 <XE_FC_V_INIT FORK INI R* ; Start request | 
1964 57 <XE-FC"VORESTART FORR_INIT>,- ; Automatic restart 
1964 5722 <XE-FC"V_TESTD FORK JINIT>,= 3; Self-test done 


oa 


? 


» | 
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areata FORK_PROC = Error and completion fork pr ae oets Ti $8:79:34 DRIVER. SRCIJXEDRIVER.MAR; 1 i (27), 
1964 5723 <XE_FC_V_LDRING FORK_INIT>,= ; Load ring pointer 
1964 5724 <XE_FC_V_RDDPA FORK_INIT>,= ; Read default pryaicet address 
1964 5725 <XETFC"VIWTPHYAD FORR_INIT>,- ; Write physical address 
1964 57 § <XE_LFC_V_WTMULTI FORK_INIT>,- ; Write multicast address | 
1964 57 <XE[FC-V“WTMODE FORK_INIT>,- 3 Write DEUNA/DELUA mode 
1964 57 8 <XE_FC_V_START FORK_INIT>,<- ; Start XMIT/RECV process 
1964 57 <XE“FC“V“RDCNTS FORK-COUNTER>,= : Read counts | 
1964 5730 <XE_FC_V_RCCNTS FORK_COUNTER>,= ; Read and clear counts 
1964 5731 <XE_FC_LV_MULTI FORK_PKT>,=- ; Write multicast address list 
1964 57 ; <XE“FC-V“LDMEM FORK-LDMEM>,- ; Load DEUNA/DELUA memory | 
1964 57 <XE“FC“V“RDMEM FORK-RDMEM>,- ; Read DEUNA/DELUA memory 
1964 5734 <XE_FC_V_UPST FORK_PKT>,= ; Load and start micro-address | 
1964 5735 <XE_FC_V_LDSID FORK_PKT>,=- ; Load system ID parameters 
1964 57 3 <XE“FC“VZRDSID FORK-RDSIO>,- : Read system ID parameters | 
1964 57 <XE_FC_V_STOPPR FORK_PKT>,- ; Stop xmit and receive process 
1964 57 3 <XE_FC_LV_STEST FORK_PKT>,=- ; Perform DEUNA/DELUA self test 
1964 57 <XE“FC"VIREADST FORK-READST>,- ; Read port status | 
1964 5740 <XE_FC_V_CHMODE FORK _PKT>,= ; Change the mode definition 
1964 5741 <XE_FC_V_STOP  FORK_STOP>,=- ; Stop protocol 
1964 og <XE_FC_V_MOPCTR FORK_PKT>,= ; Mop counter read request 
1964 574 <KE_FC_V_LESTEST FORK_PKT>,= ; Perform DELUA extended self test 
1964 5744 <KXE_LFC_V_HALT FORK_PKT>,= ; Halt port (DELUA only) 
19a0 $746 : 
1943 sre ; Otherwise BUG_CHECK if not a valid IRP 
UG_CHECK NOBUFPCKT, L ; Fatal driver error 
1oay a8 BUG_CHECK NOBUFPCKT,FATA Fatal dri 
19A4 5751 FORK_PKT: ; Process completion on packet 
50 3A.A3 C 19A4 236 MOVZWL IRPSW_XE_STATUS(R3),RO ; Get status of completion 
05A0 0 19A8 575 SBW 10_DONE : Complete the 1/0 
FF99 31 19MB 5754 BRW «108 ! Get next packet | 
19AE 5756 FORK_INIT: ; Process init completion 
39 AS 00) 91's«19AE «5757 CMPB = s S*#XE_FC_V_INIT, IRPSL_MEDIA+1(R3) ; Was this an initialize? 
FO 612 #198 238 BNEQ FO ; Br if not | 
50 SAAS 3C 1984 575 MOVZWL IRPSQ_XE_STATUS(R3),RO ; Get completion status 
50 DD 1988 5760 PUSHL R ; Save completion status 
50 14 B61 19BA 5761 CMPW #SS$_BADPARAM,RO : Is this bad parameter? 
Ss Ww 100 166 BNEQ 35$ ; Br if no | 
per Ae 3; For SS$_BADPARAM, must return bad parameter code 
° } 
i AS 5 C 198F 766 MOVZWL RO {RPSL 1087 (85) ; Return error code 
3c AS 40 A C 19¢3 7 MOVZWL IRPSW KE=CODE (RS) , 1RPSL_LOST (R3) ; Return bad parameter code | 
059A 0 19C 768 BSBW 19 DORE 3 Complete the 1/0 request 
03; «11 ince 82 BRB 7$ 3; On our merry way... 
1308 gr 3; Not SS$_BADPARAM error code, no bad parameter code 
0578 «= 30 13C8 718 $53: BSBW —10_DONE : Complete the 1/0 request 
03 28 a $ 1308 46 37$: pon, : one ; Restore status 
F9D4 40 1908 8 BSBW A Age acuList ; Start the receives on success 
FF6B 1 1309 ore 40$: BRW 1 ; Get next packet 


| 
| 
| 
| 
] 
: 
:; Br ir error on startup 
: | 
| 
| 
| 
| 
| 
| 
| 
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24 
MAR; 1 (47) | 
780 FORK STOP: 


19DC 
0 19DC¢ 7 SHUTDOWN_PROTYP 3; Shutdown the PROTOCOL 
A 19DF 57 ¢ MOVZBL $*#SS$_NORMAL,RO ; Return success 
1 138 7 z BRW 10_DONE 3 Complete the 1/0 request 
19E ; 5 FORK_COUNTER: ; Process counter done 
BB 19E 7 $ P #*M<R4 RS ,R6,R7> ; Save registers 
1969 57 ASSUME P2 " POINTER EQ 0 
0 1989 57 3 OVL @IRPSC_SVAPTE(R3) ,R2 3; Point to start of data area 
— 19€ 7 MOVAB CDBG CUDB(R4) .RG 3; Get address of counters 
9E 19F 790 VAB TAB,R 3; Get address of counter format table 
A 19F 6 OVZBL #L NE_€NT_SIZE,R1 3 Get number of entries in table 
C I19FA 5792 50S MOVZWL (R5)+,RO 3; Get counter code 
0 19FD 579 MOVW RO, (R3)+ 3; Return counter type code 
¢ 1009 794 MOVZWL (R5)+,R7 3; Get offset word 
EF 1A0 795 EXTZV #NMASV_CNT_MAP,#3,RO,RO ; Get width + bit map indicator 
1A08 579 CASE  RO,TYPE=B,CIMIf=#2,<- : Dispatch on width and bit map 
1A0 79 gog, - 3 ; bit counter 
1A0 798 0$,- $ bit counter + bit map 
1A0 799 + ; 16 bit counter 
1A0 00 0$,- : 18 bit counter + bit map 
1A08 01 100$> : 32 bit counter 
1Al9 $808 3; All others - fatal error 
1Al6 sang ; BUG_CHECK NOBUFPCKT,FATAL 
aie 807 : 8 bit counter 
90 AIA $809 0s: MOVB (R6)CR7], (R2)+ 3; Store counter value 
11 Aig \9 BRB 110$ ; Check if more 
A 0 HE : 8 bit counter + bit map 
90 1A HA 708: MOVB (R6)CR7),(R2)+ ; Store bit map 
D6 1A246 15 INCL 3; Skip to next byte 
90 1A26 18 MOVB (R6)CR7),(R2)+ : Store rest of bit map 
D6 1A2A 581 INCL R7 ; Skip to next byte 
11 A : 18 BRB 60$ 3; Store counter value 
- : y : 16 bit counter 
BO 1A $ bos: MOVW (R6)CR7), (R2)+ 3; Store counter value 
11 1 ? BRB 110$ 3; Check if more 
1A 4 5 : 16 bit counter + bit map 
BO 1A34 5 0s: MOVW (R6)CR7),(R2)+ ; Store bit map 
06 1A38 8 INCL R7 3; Skip to counter 
11 1A " BRB 80$ 3; Store counter value 
1A c ° : 32 bit counter 
DO 1A : 100$:  MOVL (AG) CAPD. (ROD* 3; Store counter value 
id : ;BRB 110$ 3; Check if more 
FS 1A4 6 110$:  SOBGTR R1,50$ ; Loop if more 
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$W_XE_USERSIZ(R3) ,RO 


i Get the counters kept by the driver 

40 MOVAB LINE_CTR,RS : 

41 OVZBL MLINE CTR. SIZE,R1 : 

46 1128: MOVZWL (R5)4 : 

4 OVW RO tRoNG : 

44 MOVZWL (R5)+,R7 : 

45 ADDL R4,R7 : 

46 EXTZV #NRASY CNT_MAP,#3,R0,RO : 

4 AS RO, TYPE=B,CIMIf=#2,<- : 

48 1138. : 

4 113$.- : 

50 114$,- 3 

5} 1138. : 

26 113$> : 
:  BUG_CHECK NOBUFPCKT, FATAL : 

894 113$: BUG_CHECK NOBUFPCKT,FAT 

536 : 16 BIT counter 

898 114$: MOVW  (R7),(R2)4 ; 

85 CMPB Ss #XE_FC_V_RCCNTS,- : 

860 IRP$B_RE-FUNC(RS) : 

86 BNEQ 115$ : 

6 CLR (R7) 3 

863 115$: SOBGTR R1,112$ ; 

865 POPR #*M<R4,R5,R6,R7> : 

866 MOVZWL IRPSW -BCNT CRS), RO ; 

867 CLRW = IRP$WTBCNT(R3 : 

868 BLBC  IRPSW-XE_STATUS(R3) ,130$ 

869 CMPW 3s IRPS$WXE-USERSIZ(R35 ,RO ; 

870 BGEQU § 1208 

71 IRP 

87¢ #SS$ 

7 RO 

74 wid R 

f oo 

ss 18 

7 

7 


Get address of counter format table 
Get number of entries in table 

Get counter code 

Return counter type code 

Get offset wor 

Point to counter in CDB 


§ bit counter 

bit counter + bit map 
16 bit counter 

16 bit counter + bit map 
32 bit counter 


ALL others, fatal error 


Store counter in buffer 
Is this a clear operation 


Else, clear the counter 
Loop more 


Restore registers 
Get size of P2 buffer 


; Assume error - no data return 


; Br if err when 

Is user buffer larger t 
: Or yes - okay 

ser return size 


getting counts 


MO 3°. u 
MOVW $ BUFFEROVE . RPSW_XE hte Set error return 
120$: MOVW IRPSy BCNT(R3) Set user return size 
ASHL ; Move count to high word 
130$:  MOVW $y vie OS rATUS(R3). RO ; Set return status 
BSBW DON ; Complete the I/0 request 
BRw $ 3; Get next packet 
FORK_RDMEM 3; Process READ DEUNA/DELUA MEMORY 
WE =IRPSW pent ee ),RO : Get size of P2 buffer 
IRPS$W- Assume error = no data return 
BLBC IRPSW- KE “STATUS(R3), 1408" r if err when getting counts 
RO InPSu. BCNT ; Else, beset buffer size 
4 140$ ASHL : Get return buffer size 
MOVW Ft anus. : Set return status 
$ BRB 45$ ; Complete the request 
8 FORK _LDMEM: ; Process LOAD BEUNAOELUA MEMORY 
MOVZ2WL IRPSW_XE_STATUS(R3),RO ; Get completion statu 
, 145$: MOVL UCBSL_CRB(RS) R2 ; Get CRB address 
9 ASSUME VECSB"NUMREG EQ VECSW MAPREGS2 
35 ASSUME VECS$B-DATAPATH EQ VECSB B_NUMRE +1 
9 MOVL IRPSL_XE_MAP(R3) ,- ; Setup map register data 
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C 
16-SEP-1984 00:32:54 
FORK_PROC = Error and completion fork pr $b 1382 88:99:34 
1g abba tater : 


1a 94 
30 1AD 95 BSBW 
VAD6 9696 RELMPR 
31 1adC 589 BRW 
VADE 3898 
1ADF 5899 FOR::_RDSID: 
3¢ 1ADF 00 MOVZWL 
B4 1AE3 5901 CLRW 
E9 IAEG 990¢ BLBC 
BO 1AEA 90 MOVW 
1AEC 5904 
B1 1AEE 3905 CMPW 
3 TAFT 5906 BGEQU 
BO IAS 59 mOVW 
BO IAF? 5908 MOV 
BB AFD 5909 150$: PUSHR 
IAFF 5910 ASSUME 
DO IAFF 5911 OVL 
3E 1B03 d9t¢ MOVAB 
3¢ 1808 591 MOVZWL 
8 180C 5914 MOVC3 
BA 1810 5915 POPR 
78 1B12 5916 1608: ASHI 
0 1817 591 MOVW 
0 1818 5918 BSBW 
1 1BIE 5919 BRW 
1821 5920 
1B21 5921 FORK_READST: 
B4 1821 5922 CLRW 
E9 1824 59 BLBC 
BO 1828 5924 MOVW 
1B2c 5925 ASSUME 
O 1BeC 5926 MOVL 
D 1830 39 mova 
78 18 928 1808: ASH 
0 1B3A 59 MOVW 
0 1B3€ 29 0 BSBW 
1 1841 5931 BRW 
1B44 5932 .DSABL 


10_ ; Complete the request 

; Release map registers 
10$ ; Look for more work 

3; Process READ ay 1D PARAMETERS 
[ROSY BENT (RG) RO ; Get size of P2 buffer 
IRPS$W_BCNT(RS) : Assume error = no data return 
IRP$W_XE_STATUS(R3) ,160$ ; Br if err when getting parameters 
#udB_SID-C LGNSTH.= ; Assume user buffer is large enough 
IRP$Q_BCATTRS) 3 
Rg #UBB_SID_C_LENGTH 3 Is user buffer larger than UDB ? 
156$ ; Br if yes - okay 
RO ey BCNT(R3) ; Else, gst buffer size to user buffer 
#s§ UFFEROVE , IRPSW_XE_STATUS(R ) ; Set error return 
#*M<R5,R4,R5> ; Save registers 
Pe ‘ POINTER EQ 0 
@IRPSC_SVAPTE(R3) ,R2 ; Point to start of data area 
CDB_G_SIDUDB(R4) ,R4 ; Get address of SYSTEM ID PARAMETERS 
IRPSW~BCNT(R3) ,RO ; Get size of transfer 
RO, (RZ), (R2) ; Move data to system buffer 
#°R<R3,R4 RSD ; Restore registers 
#16, 1RP$WBCNT(R3),RO ; Get return buffer size 
IRP$W_XE_STATUS(R3),RO ; Set return status 
10_ DONE ; Complete the request 
108 3 Look for more 
; Process READ PORT STATUS 
IRP$W_BCNT(R3) ; Assume error = no data return 
IRP$W_XE_STATUS(R3) ,180$ ; Br if err when getting status 
#8, IRP$W-BCNT(R3) ; Assume user buffer is large enough 
P28 _L_POINTER £2 0 
alrPsc SVAPTE CES) ARG : Point to start of data area 
IRP$Q_RE PCB(R3),(R2) ; Copy return data 
#16, 1RP$Q_BCNT(RS),RO : Get return buffer size 
IRP$W_XE_STATUS(R3),RO ; Set return status 
19 DONE : Complete the request 
iv ; Look for more 
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Vv SCAN_LISTS = Scan transmit and receive r 5-SEP-1984 DRIVER. SRCJXEDRIVER.MAR; 1 (48) 
10% | : -SBTTL SCAN_LISTS = Scan transmit and receive ring entries 
ieee 4 § : SCAN_LISTS = Scan transmit and recieve ring entries for completed requests 
1844 3 8 : Functional description: 
+4) Bey : This routine is called to search the ring entries for completed operations. | 
IBGE $3eg | troues: | 
1844 gad : R4 = COB address 
1B44 9946 ; IPL = FIPL | 
IRE SREB | Overs: 
1844 5950: RO-R3.R5 are destroyed. 
1B44 5951 ; ALL other registers are preserved. 
1B44 328 3 
Ieee 398° | 
1B44 29e¢ SCAN_LISTS:: : Scan XMIT/RECV rings | 
56 DD 1B44 5956 PUSHL = R ; Save R6 | 
0086 C4 95 1846 5957 108: TSTB CDB_B_RCVCNT(R4) ; Any receives in progress? 
03 12 184A 2026 BNEQ 20$ ; Br if yes - process any receives 
0118 31 + #8 328 15$: BRW 60$ 3; Else, skip to the xmit List 
02B4 D4 §=616 = «=(1B4F 29et 20S: JSB @CDB_L_ASSPKT(R4) ; Assemble receive packets 
F650 €9 1853 2308 BLBC RO,15$ ; Br on error or none 
06 €0 1856 596 BBS #RCV_FLG_V_ERRS,- : Br if FATAL receive error 
3C 0B Ag 1B58 5964 CXBSB_R FCAGS(R2),25$ ; DEUNA/DELUA should count this error 
51 464A 3C 4 aoe2 MOVZWL CXBSW_R_PTYPE(R2) ,R1 3; Pick up protocol type from buffer 
1B5F 5967 ~IF DF POINT 
0660 8F a ? $44 44 ae R1,#XE_C_STPRO if is this she startup protocol? 
3% Br no 
OEAA i 1B66 5970 BSBW FIND_POINT_UCB 3% Find the point to point user! 
1450 €9 1869 5971 BLBC RO,22$ i% Br if failure, assume regular user 
29 «11+=«1B6C 976 BRB 25$ '% Else done with MSG block | 
He ae ~ENDC 
0260 8F a 5 18s Bete 218: poy 9) PN Cre PRereP : js tye the Remote Console protocol? 
09 91 187 359 CMPB #NI_CTR_READ,=- : Is this a read counters request? | 
46 Ae 1B7 978 XBST_R-USERDAT(R2) ; 
g 13 1879 597 BNEQ :; Br i 
0592 3 14 9 Hy 0k -CTR_REQUEST ; Else, process the request for counters 
155 28 18 6 9 § 228: BSBW matey PROTYP ; Try to match protocol type 
1E 5 —8 18 9 BLBS RO,278 ; Br if success 
55 0224 C4 + 1886 5984 23%: MOVL CDB_L_PRMUSER(RA) RS :; Try to get the PROMISCUOUS user 
F 1 18 985 BNEQ 4 ; Br if one found 
18 B 9 § INCC CDB_W_UFDCTR(R4) ,W ; Else, no such protocol type 
10 A pp 18 987 25$: PUSHL CXBSL-LINK(R2) : Save next in chain 
F81 1B9A 59 } BSBW ADDRCOULIST ; Add buffer to receive List 
52 8EDO 1890 59 POPL R 3; Restore next buffer 
£ 12 BAO 5990 BNEQ 25$ ; Loop if more 


————————— 1 co 
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yOe-000 SCAN_LISTS = Scan transmit and receive r gre EE bbe 88:75:38 DRIVER. SRCJXEDRIVER.MAR; 1 (28) | 
A211 Hv BRB 10$ ; Look for next completed buffer 
1BA4 ; If there is a promiscuous user, then copy the packet for the promiscuous 
1BAS : user. There is a chance that the data received is not for the protocol 
1BAS ; type user just found, we will have to re-verify that the destination 
1BA4 ; address is for our physical address. This is because if we are running 
1BAS ; promiscuous mode, then we will receive all packets, including those not 
ioe 3; intended for the protocol user. 
AG 27$: ASSUME NMASC_STATE_ON EQ 0 
BAS ASSUME NMASC_STATE_OFF EQ 1 
23 9238 C4 ce A BLBS CDB_B_PRM(RZ) 33 ; Br if hardware is NOT in promiscuous mode 
10 38 A2 OE A BLBS  CXBSG-R_DEST(A2),30$ =; Br if multicast address, this 
A ; will be checked Later. 
38 A2 iT A CMPL CXBSG_R_DEST(R2),- ; Is this packet for this protocol | 
O26F C4 B8.6_PRYABRCRS) ; _user? 
D1 s«12 BNEQ $ ; Br if not, don't copy packet 
Ms A2. Bl CMPW CXB$G_R_DEST+#+4(R2),= ; Are we sure? 
0273 C4 £08. C_PAYADR+4 (RS) $ 
co = 12 BNEQ $ ; Br if no, dont't copy packet 
3 Copy the packet for the promiscuous user 
55 OD S0s: PUSHL = R5 ; Save user's UCB address | 
55 0224 C4 0 MOVL DB_L_PRMUSER(R4) ,R5 ; Get PROMISCUOUS user's UCB address 
03 «(1 BEQL 1$ ; Br if none 
Ork¢ 30 BSBW COPY_RCV ; Give buffer to promiscous user 
55 8ED0 31$: POPL R5 3; Restore user's UCB address 


: If multicast address is the destination, then make sure that multicast 
; address is in multicast address list for this unit. 


1c 38 a2 9 $2 BLBC  CXB$G_R_DEST(R2),34$ Br if physical address 
Re 28 BsBy mat H-MOLTI Try to match multicast address 


0,34 ; Br if success 
33$: INCC UCBSW_XE_MNECTR(RS).W : Else, multicast not enabled 
INCC COB_W_UFBCTR(R4) ,W ; Also added in unrecognized frame dest 
BRB 25$ ; Release buffer 


; If the user did not request data chaining, then check to make sure he gets 
: no chained buffers... may be user of Internal IRPs! 


$4$: TSTL CXBSL_LINK(R2) ; Is this a chained message? 
BEQL 6$ ; Br if not 
ASSUME NMASC_STATE_ON EQ 0 
ASSUME NMASC_STATE_OFF EQ 1 : ; 
BLBS UCBSB_XE_DCA(RS) ,45$ : Br if chaining not allowed 


: If there is a pending receive 1/0 request, complete it. 
3; Otherwise, queue the buffer and, if enabled, deliver attention AST. 


$6$:  MOVZWL UCBSW_DEVBUFSIZ(R5),RO ; Get size of user's max buffer 
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: he following code could cause problems for an altstart user, 
: f the altstart user happens to receive a buffer which is 1 or 2 
HY artes Longer than they are capable of handling. Only if the 
388 protoco 
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raat SCAN_LISTS = Scan trensait. ond receive r .* Hetty 90:76:34 LORIVER. SRCIKEDRIVER.MAR: 1 . (48) 
1BFA 604 itt 2 bytes of count to be subtracted from the message size. 
1BEA 6080 ; 
Ha é ; Erect the size of the received buffer against what the user protocol can 
Hy n . 
BFA : 
A3 1BFA 6054 SUBW3 exe C_HEADER+= ; Get the size of the 
1BFB 6055 EC Cheer s CNISIZ,= ; receive buffer 
1.6CUM a2 14 1BFB 6 28 cxes9 _BCNT(R2T,R ; minus the header and trailer 
5 51 B61 IBFF 605 CMPW R1 ; Is the received size laroer than 
1002 6 28 ; what the user can handle? 
3 1A 1608 ? 5 BGTRU ass ; Br if yes, error 
0178 ¢ b 1C 60 TSTL BSL_XE_FFIC(RS) : FAST Interface supported? 
06 13 %1C08 6061 BEQL $ ; Br if not, standard interface 
0226 3 1COA oR86 BSBW S AULSH ACY PFE ; Else, complete FAST receive 
FF 36 1 1598 e287 BRW 10$ ; Look for more completions 
51 OOA8 CS 9E 1e19 ony? 37$: MOVAB UCBSQ_XE_RCVREQ(R5),R1 ; ee Se, are running in 
—1 1¢€15 $06? BBC #UCBSV_XE_ SHARE Br if UCB is NOT in SHARED mode 
09 68 A5 1e17 6068 UCBSW"DEVSTS(RS),38$ 
1C1A $090 : If running in SHARED mode, then we must use the Listheads in the SHR 
1C1A 6071 ; data structure. We will use the source address from the received message 
E14 onrs ; to match against the SHR structure destination address. 
015A 30 CIA 607% © BSBW MATCH_SRC ; Check for a match on source address 
B7 12 1512 oR ee BNEQ 33$ ; Br if no shored user found 
Vele 6077 : SHARED user found, use Listheads in SHR data structure. 
51 20 A1 9€ ICIF re é MOVAB SHR_Q_RCVREQ(R1),R1 ; Get address of waiting IRPs 
53 0081 OF IC ; 6080 38$: REMQUE @(RT)IR ; Remove waiting IRP | 
0B wD IC 6081 BVS ; Br if none - queue for later 
ooc8 cS) = 550 Ae s«s1C29)s 60 ¢ SUBW RO, UCBSW_XE_QUOTA(RS5) : Else, lessen quota so it can be 
1C2E 608 i. increased on completion 
0230 Hi 1C2E 6084 BSBW 1 a tated : And finish the I/ 
FFI2 1 +5 } o 5 BRwW 10$ : Look for next completion | 
i¢ ‘ 69 2; : Check buffer quota and queue if quota okay. 
00c8 cS 50. A2s«1C34«6089 dos: —suBW R0 UCB$W_XE_QUOTA(RS) ; Decrement the quota 
acs $6 AD 1638 8091 ROD cBSU_XE QUOTA(RS) t Relient 
; Replace quo 
wiles . 1¢20 6099 45$ INCC RO ,uce XE-UBOCT : Fle, no ‘buf fer available 
1C4A 609 INCC at wW -ieottRiRe) a : .-.don't forget CDB counter 
FF4O) 0s 53311 1687 ? 3 BRW 3; Return buffer 
1¢57 6 38 50$ ASSUME UCBS$Q_XE_RCVREQ EQ ucese XE eitvnsees 
157 609 ASSUME SHR_Q Q"RCOREQ Q EQ SHR_Q RCOMS . 
51 04 C2 Ho 44 6 38 SUBL = #4, RI" : Backup to backward Link pointer | 
1C5A 609 : of the wena he. queue 
00 B1 62 1598 61 9 INSQUE (R2),a(R1) : Queue to ffl for later | 
F74C 6 1¢ ( 61 BSBWY = FILLACVLIST ; Titl the receive List | 
1466 1¢61 61 § BSBW Fok E_USER ; De Pn By | s 
FEDF 1 1666 } & BRW 108 ~ 3; Look for more completions 


die Page 130 XE 
~ M NA/DELUA Driver 16-SEP-1984 00:32: AX/VMS Macro Vv04-00 ; age 4 
yoenOUn” SCAN LISTS scan transmit and receive r met 7 8:79:34 LORIVER. SREIXEDRIVER.MAR: 1 a8) 
1667 6 5 ; NOW = scan the xmit ring entries 
hos: ; i in progress? 
— 63 33 1687 8] Hos BNEG | epametecpaticse : ort vee - \Sok for any completed 
010 i 1e6b 6198 70$: BRW 1908 ; Else, all done | 
: R ; Get Last ring entry completed 
26 aarti 30 1679 $142 some woven COB ETKRADDR (Re) CROs RG ; Retrieve last ring entry address 
ro * 5 4 1C7A g11 BBS #XMT_FLG_V_OWN,=- ; Br if not done | 
5 8 De 1ebF S18 WTB ECARS (ne) 708 ; Get next XMIT CXB 
a oe Re S116 ove it : : Br if none there (yet) | 
57 ib it § e119 BNEQ bos 4) 3 ° gh ap ay fn queue 
3 Sto e xm 
$689 7 3 if $119 80$: bECB EDB-B-XMTENT (Re) ; One Less transmit pending 
§ 4646 9 IC 6 6120 j INCB CDB-B-LASTXMT(R4) ; Bump ring pointer 
ae F BA 1094 35121 BICB @*C2MAX_C_XMT=1>,= ; Modulo receive ring entry size 
00B4 C4 1€97 61 : CDB_B_LASTXMT (R45 : one | 
1C9A nent 
22 AS) =«OOB: AG Bt 49 4 2 : Hey at ee eee matc 
eal e § . BUG_CHECK NOBUFPCKT,FATAL ; Else, fatal error 
CAS 61 8 : Transmit complete 
CA : | 
: T_B_FLAGS(R6) ,= ; Save diagnostic return info | 
ovo te 28 fA 6] : vos: nove MCDB S DIAGI (RG ; | 
4 66 A6 BO I1CAB 61 ; MOVW XMT Me bikctings : Save diagnostic return info | 
008 3 3 ital 3 4 MOVZWL cxBs0 Bor AS) “RS : Get offset to start of data 
3559 38 GO 1eBs S135 AOE BURL UCBCRS) -RS Get UCB address | 
33 (8 a3 BR ite $1 ; MOVZBL CRBSECRE SLOT (R3) ,R2 : Get mapping slot number used 
ak Seakee 1CCO 6138 CLRBIT R2,CDB_B-XMTMAP(RG) ; Clear in use flag | 
1 24 A5 00 ifs 6139 OVL UCBS$L_CRB(RS) ,R1 ; Get CRB address | 
169 Star eae me es ed A et ee | 
0 19 $143 nov 3 L-XMTMAP(R4)CR2),- —; Setup map eugreees data | 
eet ae eee 1CCF $103 CRBSC_INTD+VEC$W_MAPREG(R1) ; and data path number ; | 
F 6144 TSTB CRBSL_INTD+VECS$B_BATAPATH(R1) ; Is the data path the DOP? 

” 12 3 tbe 6145 BEQL 93$ ~ m6 ; Br if yes don't do purge or release | 
1ep? gi29 PURDPR ” : has the data path (ignore errors) | 
1e0p 9188 RELDPR 3 pen sees the S ta path 

. r ° 
iff $180 93$: rete R : Was it the pre-allocated one? 
36 3 18 $1 1 ; BEQL 95$ :; Br { es - Sheed Pete oath funer 
: re 
elhetion” @ Sates ite $1 : RETAPR hee cn psa tartn : fm pene gh ea es A. 
03 «17 ers 2 : BRB 100$ : Complete the request 
: PATH EQ VECS$W_MAPREG+3 | 
3F AG 9G if} 8} 4 eee ttre UBB oRATRAPS 3( Ra) : a fg Mae gh. greet | 
” _ 59 06 1cre 6158 —_ nove i cae : fone converted Length for accounting 
ASHL #16,R0,R0 ; Move to wor 
5 i 1 rs 1b05 Sie MOVW £2859 NORMAL ,RO ; Set completion status 
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y0e. 000 SCAN_LISTS = Scan transmit and receive r 5-SEP-1984 t $0; #8: 34 LORIVER. SRC IJXEDRIVER.MAR; 1 “ (48) 
39 OS A 6 €1 1008 61 ¢ BBC #XMT_FLG_V pe XMT_B_ FLAGS(R6), 110$ ; if not a FATAL error 
0 0 34 8F B60 1D 61 MOVW asSss -DEVREGERR Else assure | 6 reseies failed 
45 06 A A €0 1Di2 6164 BBS #XMT-TERR_V_RTRY,XMT_W_ TbRERR Ae Br if true 
0 204¢ 8F BO 1D17 6165 MOVW #SSS$"DISCONNECT,RO assune I Loss of Carrier 
38 06 ab E 1p1¢ 6166 BBS #XMT-TERR_V_LCAR.XMT_W _TORERR KG true 
0 005¢ 8F 80 1D 16 MOVW #595" DATACHECK RO assure I tate € collision 
31 06 A C EO 1026 6168 BBS #XMT-TERR_V_LCOL,XMT_W_ TbRERRCAG) 1 
30 20C4 8F 8 1D $16 MOVW #SS$_COMMAARD R Else, ass e inibus tineout 
27 06 A6 E E 1D 6170 BBS #XMT_TERR_V UBTO.XMT_ We THRERRC ROS 120 Br ift 
50 0054 8F B80 1D 6171 MOVW #SSS$-CTRLERR,R Else assume coats undertles 
2 Ma ag fe. 1D3A 0126 BBS #XMT_TERR_V prt. KAT. We THRERR (RO) 120$ ; Br if true 
029C 8F BO 1D3F af MOVW #353. TOOROCRDATA, RO Else, must be. Butter Length violation 
16 =«=611 1078 o1ee BRB 120$ Skip the accounting 
He 0178 3; Perform caer on a per protocol type basis. 
1D46 6178 1108: CNTR 1,UCBSL_ xE cSBYCTR(RS). L ; Bump the bytes sent counter 
1052 6179 INCC ucése XE-SBCCTR(RS),L «== Bum ae the blocks sent counter 
24 A3 08 1D5C 6180 120$: TSTL atti T_IR seraty ; FAS interface CXB? 
09.1 1D5F 6181 BEQL 130$ ~ : Br if y 
53 26 AS Be 1061 61 ¢ MOVL CXBSL_T_IRP(R3) ,RS ; Else, ioet IRP address 
O1E3 0 1065 61 BSBW 10_DORE ; Finish the 1/0 request 
03 11 1068 6184 BRB 3; Continue in common code 
0088 0 1D6A 6185 130$: B8SBW FINISH_XMT_FFI ; Else, complete FFI XMIT 
£738 0 1D6D 6186 170$:  B6SBW XMT_ALT_START ; Start up any other transmits 
FEF4 1 1070 ay BRW 50s" 3 Look for next completion 
56 8EDO p58 6189 190$:  POPL R6 3; Restore R6 
05 1076 6190 RSB 
1077 6191 


vou-000" SUBROUTINES TO FIND SHR MATCH ON SOURCE 'S-SEP=1984 00:19:25 LORIVER.SREIREDRIVER.MAR;1 28° (2g). 
9 A -SBTTL SUBROUTINES TO FIND SHR MATCH ON SOURCE ADDRESS | 
13 Functional description: 
19 Subroutine to find SHR data structure for user 
19 Inputs: 


~ = Receive CXB address 
R5 = UCB address 


Outputs: 
Ri = Address if SHR data structure if match 
ALL other registers preserved. 
Z7-Bit set then match. 
Z-Bit clear then no match. 


De Se Oe Oe Se Se Oe Oe Oe Se Se Se Se Sees 
+ 


OO ODO DOOOOOOOO NN 


S 
N 
1D 6193 
1D 4 
et Bie 
Be 8 
Be Be 
1077 6 8 
1077 6 § 
1077 6 
1D f ° 4 
1D 5 
1077 6 88 
1077 6 8 
1pey 6509 
1D77 6210 MATCH_SRC: ; Try to find shared user 
0S 68 | ? 1} PUSHR #*M<RO,R2> 3; Save registers 
1 ; ? 18 ; Try to find match among Limited shared users of protocol type 
50 0098 CS 9E€ 1079 6215 ° MOVAB UCBSQ_XE_SHARE(R5),RO ; Save address of Listhead 
51 50 00 1D7E 6 1g MOVL R 3; Copy Listhead address 
1D81 621 ASSUME SHR L_QFL EQ 0 
51 61 00 1081 6218 20$: MOVL (R1J,R1 ; Get next in List 
50 51 £4D1 1084 6219 CMPL R1,RO ; Back to start of list? 
9 13° 1087 6220 BEQL 30 ; Br if yes - no source match 
1 19 1089 6221 BSBB CHECK_SRC ; Check for match 
F4 12 #1088 6 § BNEQ g0s 3; Br if none 
oc 11 1 4 ? i BRB 0$ ; Return in success (Z-bit is set) 
1 : e 5 : No match on Limited users - try to use default user 
51 00C4 C5 09 1D8F 6 3 S0s: MOVL UCBSL_XE_DEFUSR(R5),.R1 ; Get address of default user 
02 13 1094 6228 BEQL 40$ ; Br if no default user 
50 D4 1D $ 6229 CLRL RO ; Return success 
50 50 00 1D 62350 40$: MOVL RO,RO 3 Return success/failure indicator 
0S BA 1098 6231 50$: POPR #*M<RO,R2> ; Restore registers, don't reset 7-BIT 
0S 1090 6 § RSB 
SEBEL 
Ho 4: ? 5 : Functional description: 
443 ? $ : Subroutine to check if source address in message matches SHR address 
1D9E 6 § ; Inputs: 
1D9E 6240 ; R1 = Address of SHR 
Ha: e $ 3 R2 = Address of MSG buffer 
1D9E 2 2g : Outputs: 
1D9E 44; Z7-Bit set then match. 
1D9E 6245 ; Z7-Bit clear then no match. 
1D9E 6 $$ 3 
1D9E ? 4 
1D9E 8 C 
1D9E 624 


HECK_SRC: : Chock for match with SHR data base 


12 Al 3€ A2~ 01 CMPL CXB$G_R_SRC(R2),SHR_G_DEST(R1) ; Source address match? 
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1 1DA 
Bi 1DA 
1DA 
05 DAA 10$: 


BNEQ 
CMPW 


RSB 


10$ 
— R_SRC+#4(R 
R_G_BEST+4(R 


Oo 
) 


if no - try for next 


; @r 
; Really match? 
: Return to caller 
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He é 5 ia -SBTTL COPY_RCV = Copy a receive buffer for the PROMISCUOUS user 
18 5 : COPY_RCV = Copy a receive buffer for the PROMISCUOUS user 
1DAB § : Functional description: 
1DA8 6 : This routine allocates a receive buffer in which to copy the a receive 
18 é $¢ ; buffer for the PROMISCUOUS user. 
RAR Ssza i Inouts: 
1DAB 6 66 : R2 = Receive CXB address 
1DAB 67 ; R4 = COB address 
1DAB 6 re: ; RS = UCB address of PROMISCUOUS user 
138 ? 8 : R6 = Address of receive ring entry 
1DAB 6 7 : IPL = FIPL 
IAB 6 73 ; Outputs: 
1DAB 6275 : RO,R1,R3 are destroyed. 
a e 6 3 ALC other registers are preserved. 
1DAB 6278 CoPY_RCV: ; Copy the xmit buffer to rcv buffer 
52 DD 1DAB 6279 PUS R2 : Save address of original buffer 
1¢ A2 O01 B81 IDAD 6 60 CMP #1,CXBSW_R_NCHAIN(R2) ; Is there more than 1 in chain? 
12 1DB1 6281 BNEQ ; Br if yes - we can only handle 1 
51 AA 3C 10B3 6 Hf MOVZWL CXBS$W_BCNT(R2),R1 ; Get size of buffer 
51 00000048 8F CO 1DB7 628 ADOL #CXBSC_HEADER,R1 : Compute size of needed buffer 
eeeees ) t 8 1086 ? se i53. G*EXESALONONPAGED 3 pesete receive buffer 
: Br ailure 
53 6€ DO 1DC7 6286 MOVL (SP) ,R3 3; Get address of original buffer 
36 BB 1DCA 6 8 PUSHR #°M<R1,R2,R4,R5> 3 Save registers 
62 63 51 28 DCC 6288 MOVC3 R1,(R35, (R2) : Copy everything to new buffer 
36 «OBA 1p09 6289 POPR #*M<R1,R2,R4,R5> : Save registers 
08 a2 «51.—s BO 1ppe 6 30 MOVW = R1, CxB$W_$1ZE(R2) : Reset size field 
1006 6 35 : If there is a pending receive 1/0 request, complete it. 
ieee ? 37 3; Otherwise, queue the buffer and, if enabled, deliver attention AST. 
51 4205 3C 1DD6 6295 ° MOVZWL UCBSW_DEVBUFSIZ(R5),R1_ ; Get the user's buffer size | 
53 OOA8 DS OF IDDA 6 38 REMQUE @UCBSO_XE_RCVREQ(R5S ,R3 ; Remove waiting IRP 
A 1D IDDF 629 BVS 3; Br none - queue for later 
00c8 C5 1 <A2 1DE1 ° 38 SUBW R1,UCBSW_XE_QUOTA(RS) 3; Else, lessen quota so it can be 
1DE6 9 3..increased on completion 
0093 30 IDES 6300 BSBW CINISH_ACV10 ; And finish the I/ 
6 11 DED 6 4 BRB 80$ ; Look for next completion 
ae 
a é : : Check buffer quota and queue if quota okay; otherwise, delete the buffer. 
1DEB 6306 ° 
00c8 cS) 551s A2 «Ss«IDEB 6 $ 30$: SUBW R1,UCBSW_XE_QUOTA(RS)  ; Decrement the quota 
1E DFO 6308 BGeau 50$ ; Br if we can buffer request 
00c8 C5 1 AO 1DF ° 9 ADDW R1,UCBSW_XE QUOTA(RS) ; Replace quota 
1DF 10 INCC UCBSW_XE UBOCTR(RS),W ; Else, no buffer available 
1601 63511 INCC CDB_W-UBOCTR(R4) ,W 3 «--don't forget CDB counter 


; 
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yon O08 Y_RCV = Copy a receive buffer for the 5-SEP-1984 90:76:34 YORIVER. SRCIXEDRIVER.MAR; 1 . 8d) | 
50 52 oO IE 631 MOVL R2,R0 3; Copy the buffer address 
00000000'GF 16 EOE 6 13 JSB G" COMSDRVDEALMEM : DEALLOCATE the buffer | 
0B i Hah 6 \% BRB 0$ + Done 
OOA4 DS 2 iEi¢ 3 1 50$ INSQUE (R2) SUCHSG KE _ACVASES4(RS) Gueye received msg for later 
3 F 1€18 ? 1 BSBW FILLACVLIST 3 o fill the receive list 
12A9 \eyE 18 BSBW eo é be iver ASTs 
52 BED Es 6319 80$ POPL 8 : Restore R 
0S 1€24 6320 RSB 3; Return to caller 


sets 
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: FINISH_XMT_FFI = Finish FAST interface transmit processing 


Functional description: 


This routine completes a transmit CXB for a particular user of the fast 
interface. 


Inputs: 
RO = Status of transmit request 
R$ = transmit CXB address 
R4 = COB address 
R5 = UCB address 
IPL = FIPL 
Outputs: 


RO-R3 are destroyed. 
ALL other registers are preserved. 


ASSUME IPLS_SYNCH EQ IPL$_XE_FIPL 
ee ee 3; Finish FAST interface transmit request 


RG ave 

MOVL UCBSL_XE_FFIC(RS),R4 Get FFI block address 

JSB aFF ISC_XAIT_DONE(R4) : Call back the user with CxB 
RG ; Restore R4 
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if 33 ae -SBTTL FINISH_RCV_FFI = Finish FAST receive processing 
IE Q ; FINISH_RCV_FFI = Finish FAST receive processing 
3 6 38 : Functional description: 
1E g $ : This routine completes a receive CXB for a particular user of the fast 
i ? ? 3; interface. 
IE 6 é§ : Inputs: 
iE 6 $9 : R2 = receive CXB address 
if $ : R4 = COB address 
ie ? rt 3 RS = UCB address 
IE 6 $9 : IPL = FIPL 
1E33 6371 : Outputs: 
1E 6 ie : 
1E 63735 ; RO-R3 are destroyed. 
Ht ? a 3 ALL other registers are preserved. 
1E33 6376 :-- 
1E33 6 iS ASSUME IPL$_SYNCH EQ IPL$_XE_FIPL 
1E 6378 FINISH_RCV_FFI:: ; Finish FAST recieve request 
23 DD IE 6379 PUSHL R4 ; Save CDB 
53 pO 1€ 6380 MOVL R2,R3 ; Copy CXB address 
3— A 7D 1€38 6381 mMOVa CXB$G_R SRC(R3),= 3; Copy source address 
28 a3 1E38 6 Be CXB$Q~STATION(RS) : a 
18 AS 0046 8F BO I1E3D 6 : OVW #CXBST_R_USERDAT ,CXBSW_BOFF(R3) ; Set offset to received data 
1E43 6384 ASSUME NMASC_STATE_ON EQ 0 
1E4 6385 ASSUME ASC_STATE_OFF EQ 1 
09 0009 CS «EB «4«1E43 «46386 LBS UCBS$B_XE PAB(RS) , 308 ; Br if padding is disabled 
46 AS BO 1648 oH MOVW CXBSW_R_SIZE(R3),- ; Else, set real size of buffer 
1A AS 1E48 6388 CXB$W_BCNT(R3) 
AS 02 AO 1E4D 6389 ADDW #XE_C_CNTSIZ,CXBSW_BOFF(R3) ; Adjust offset 
50 00C4 C4 00 1651 6390 30$:  MOVL  CDB"L“DEVDEPEND(R4).RO ; Set controller bits 
44 AS ce 1656 6391 BISL UCBSL_DEVDEPEND(R5) ,RO ; Set status flags 
54 0178 CS DO 1€E5A $338 MOVL UCBSL_XE_FFI(RS) ,R4 3; Get FFI block address 
18 B4 16 ESF 639 JSB af FI1SC_RECV_DONE(R4) 3; Call back the user with CxB 
54 8ED0 43% 6394 POPL R4 3; Restore COB 
3 6433 00 1665 6395 MOVL R3,R2 : Was buffer consumed? 
03.1 1E68 6396 BEQL : Br if YES ; 
F542 be 1E6A 6397 BSBW ADDRCVLIST : Else, add buffer to receive ‘ist 
1E6D 6398 90$: RSB 
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Functional description: | 


This routine completes a receive operation that has been matched with a 
message block. After the receive has been completed the message free Uist 
is fi ted and a receive is started if needed. 


X/VM 
SH_R 
1E6E 64 
1ECE 6401; 
1E6E 9 § 3 
1E6E 6405 ; 
1E6GE 6404 ; 
1E6E 6405 ; 
1E6E 64 § 3 
1E6E 6407 ; 
1E6E 64 8 : 
1E6E 6409 ; 
ieee gaiy | renee 
1E6E 416 : R2 = receive CXB address 
1E6E 6415 ; R35 = 1/0 packet address 
1E6E 6414 ; R4 = COB address 
He e212 ; RS = UCB address | 
1E6E $619 : IPL = FIPL 
1E6E 6418 ; 
Hae enh 3; Outputs: 
IESE 6421 : RS is reset to UCB address from IRP 
1E6E 64 : : The request is completed via 1/0 post. 
Ieee 6038 
1E6E 64 § FINISH_RCV_IO:: ; Finish recieve 1/0 request 
2c A3_ 52. «00s 1E6E «64 MOUL R2, 1RP$L_SVAPTE(R3) ; Save block address 
3€ Ag 7D 1€72 6428 MOVa CXB$G_R_SRC(R2),- : Copy source address for DECnet 
40 A 1E75 6409 TRPS$Q “STATION(RS) ; aes 
oP 2A of E1 Jer? 9630 BBC fied DIAG 5 ; Br if no diagnotic buffer 
51 4C AS) 600 SOTE7C ot as L IRPSL ~DIAGBUF (R3) R1 : G oe = Soneeeet is buffer 
50 OC Al 9E 1€80 rt MOVAB RHDR_T_DATA(R1),R his is — : read header 
08 Al \4 et ee ee ¢ Hay #RHOR & LENGTH, STAG. W the" Is this just a header buffer? 
° Ss 
50 =3E Al 43 1EBA 64 § MOVAB eine T_RDATA(R1) ,R : Else, cust be a diagnostic buffer 
0008 Ae 9 TEBE 64 MOVB CHBSB RE FLAGS (Res = ; Save diagnostic return info 
on I om Ca 
Be 1E9A 6441 5$: PUSHR #*M<R27 RS Re »R5> : Save re gisters 
60 38 A2 gE 28 1€9C 644g MOVC3 #RHDR 3 BAA CXBST_R R_DATAC R2)-(RO): Move header info | 
A 1EA1 644 POPR #°M<R2 yi Restore registers 
62 46 As 1EAS 6444 10$: MOVAB CxBst hk TUSERGAT(R ),(R2); Set address of received data | 
04 A2 3C AS 00 IEA? 6445 MOVL  IRPSLXE_DATBUF(R3) ,4(R2 Rad ; Set address of user buffer 
4g AS AO 1EAC o668 ADDW UCBsu_D EVBUFSIZ(R5).- ; Adjust receive buffer quota 
00c8 c5 1EAF 644 UCBSW_XE_QUOTA(RS) ; 
51 1AA2 3C 1€B2 e668 MOVZWL CXBSW “BERT CR) -RI ; Find length of received message 
1588 rae : includes the CRC size | 
1680 ot3) > Perform re on a per protocol type basis. 
1608 gt3g ; CNTR hs XE a ae L ; Bump the bytes received counter | 
1EC2 6454 IncC §=_-UCB L XE-R (R5),L “ ; "Bump the blocks received counter | 
51 O€F C2 435 ote? SUBL aXe. ¢ NERDERSR ; Remove DEUNA/DELUA header from size 


ned buffers, then setup IRP$W_STS and don't reset the USER BUFFER 
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it b08 H_RCV_I10 Pi h i 1/0 SEP 138 88 #§ 34 YORI ER. SRCIJXEDRIVER.MAR; 1 . (53). vO4 
1ECF pant : If padding is enabled, then the size of the data is contained in the | 
1EGE P28 3 message as the first word of data. 
1ECF 6460 ASSUME NMASC_STATE_ON EQ 0 
1ECF 968) ASSUME NMASC_STATE_OFF EQ 1 
10 0009 &? eB ‘1ECF r+) BLBS UCBSB_XE_PAB(R5),15$ : Br if pedding is disabled 
50 46 A2 4 Al 1ED4 646 ADDW3 #XE_C-CRO, CXBSW_R_SIZE(R2) ,RO ; Else, pick up real size of 
1ED9 6464 ; _MSG from the messege itself + CRC 
62 02 C0 150? O78? ADDL #XE_C_CNTSIZ, (R2) ; Move pointer past the count field 
1EDC gee? ; Verify that the Ist word of data at least makes some sense. The byte 
1EDC 9698 3; count for the message must be less than the size of the entire received 
1EDE Ge90 | eee | 
51 50 Bl TED 6471 CMPW ROR ; Is size field Larger than buffer? | 
44 1E EDF 647¢ BGEQU 45$ : Br if yes - 
1EE1 647 ; must be strictly Less Than, because 
1EE1 6474 ; _the size field is 2 extra bytes. | 
2 2 434 oh0? MOVZWL RO,R1 ; Else, copy the real buffer size | 
1EE4 gene ; We will attempt to return the CRC as part of the user data, but not 
1EE4 6478 ; tell the user that the CRC was returned (i.e. we do not set IOST1 size 
1EE4 6479 ; to include the CRC). If the CRC cannot be returned, then we only return 
iEEe ats} 3; the data portion of the buffer. 
1EE4 e686 ; This is done, so that users suspecting that data is being ‘‘picked’’ between 
Ha att ; the UBA and host system memory can check the CRC for themselves. 
3A AS 01s«O9BSCTEES «66485 158: MOVZBW S“#SS$_NORMAL,IRPS$W_XE_STATUS(R3) ; Assume success 
39 04 9A 1EEB 6486 MOVZBL #XE_C_CRC,R : Get size of CRC 
32. a3 51—B1SCO1EEB 6487 CMPW soR1, IRPSW_BCNT(R3) : Request larger than user buffer size? 
17 18 1EEF 6488 BLEQU $ : Br if no - okay 
X 51 50 C2 1EF1 6489 SUBL RO,R1 ; Try it without the CRC being returned 
| F 1B 1EF4 6490 BLEGU 45$ : Br if DEUNA/DELUA hardware error 
0 04 IEF6 6491 CLRL 0 ; Remember that CRC is not returned 
32 A3 1 Bi TEFB 649 CMPW R1, 1RP$W_BCNT(R3) ; Request larger than user buffer size? 
OA 1B EFC 649 BLEQU : Br if no - okay (without CRC) 
51 a> ee 4 IRP$W_BCNT(R3) ,R1 : Else, set size to minimum of two 
3A AS) 0838 BF BO 169 6495 MOVW  #SS$_BATAOVERUN, IRPSW_XE_STATUS(R3) ; Set return status 
1F0 : If chai 
4 6498 ; SIZE (IRPS$W_BCNT), because chained buffers need to have the USER BUFFER 
IF 6499 : SIZE in IRPSW_BCNT. 
10 A2 0 1F $2 , 20S: TSTL XBSL_LINK(R2) 3; Is this a complex chained buffer? 
13° s#1F 65 § BEQL ; Br if no - set transfer size 
0 E1 1FOD 65 BBC #IRPSV_CHAINED,- ; Br if user cannot accept complex 
13 2A A 1FOF 6504 IRPS$SW_STS(R3) ,45$ ; chained buffers 
of AB 1F12 6505 BISW #IRPSM_COMPLX,- ; Else indicate complex 
2a A 1714 65 6 RPSW-STS(R35 : chained buffers | 
4 11 rie 65 BRB ; And don't change user buffer size | 
32 A 1 BO 1F18 65 3 798: MOVW R1, IRP$W_BCNT(R3) ; Set size to transfer 
2} 8 3 1FIC 6 40$: SUBL 3; Return receive count without CRC 
50 51 7 1FIF 6 10 ASHL #16,R1,RO ; Set buffer size in status 
6 12 #1F H 651 BNEQ 50 ; Br if success 
0054 8F B60 IF 6 \§ 45$: MOVW #SS$_CTRLERR,- ; Set data transfer error 
3a A3 1729 651 IRP$Q_XE_STATUS(R3) : 
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1F 2B 14 
50 3A A3 68 1F 2B g 15 4 + MOVW IRP$W_XE_STATUS(R3),RO ; Get statu 
1A 1 1FeF 6 18 60$: BSBB 10_DORE ; Post the i/o reques 
F479 331 iF } ° BRwW FICLRCVLIST ; Fill up the vectica buffers 
if : e318 | Complete an 1/0 request packet 
1F34 6521 ABORT_PKT: ; Abort the 1/0 request 
50 2C QA 1F346 3 § MOVZBL S“#SS$_ABORT,RO ; Return aborted status 
1F37 65235 I0_DONES: ; Complete the 1/0 request, check for 
1F37 6526 : timeout 
if a3 DO 1F37 8 5 MOVL IRPSL UCB RS) 68 RS 3; Get at pot oh 
51° * on8 cS «(pO 61F3B O65 $ MOVL UCBSL~XE_CDB(RS) Get CDB addre 
05 00C4 C¢ ? 4 1F40 65 BBC aXxmM$v ~tF C8 TIMO,C tos. L -DEVDEPENO (RID 10 "DONE ; ; Br if not a timeout 
50 §d2c C 1F46 65 : MOVZWL #SS$_TIMEOUT,RO ; return real error code 
1F4B 6529 I0_DONE: 3 Eeeataee an 1/0 request 
38 AS) 0 50)—s—s«ésCtéAAR4BEOC«#d6 5300 MOVL RO, IRPSL_IOST1(R3) ; Set status return and size 
1F4F 6531 I0_DONE1: ; gt terogte Bit point 
55 C A3) DO 1F4F 65 § MOVL IRP$L_UCB(R3) ,RS ue 
3c A3 44 AS DO 1F53 65 MOVL UCBSL ~DEVDEPEND RS), irpsi_ it CRBS : "Set other info 
51 0180 C5 0 1F58 6534 MOVL UCB$L-XE_CDB(R5) ,R1 : “Get Ay ogeress 
06 1 1F5D 6535 BEQL 0.00 Br ng,° dB 
3c AS) =—s« C4 C1 C8 #1FSF 665 § BISL CoB _L_DEVDEPEND(R1), irpsi_ foster ) Set controller bits 
1F65 6537 10_DONE2: Pi > elready setup 
54 DD 1F65 e238 PUSHL RG : ft ay hy 
54 0180 C5 DO 1F67 6539 MOVL UCBSL_XE_CDB(R5) ,R4 : Get * DB address 
07 €1 1F6C 6540 BBC #IRPSO DIAG UF ,= Br if no diagnotic buffer 
22 2A a3 Ire 6541 IRP$W_STS(R3) 0 
50 4C A DO 1F71 6346 MOVL IRPSL— “DI AGBUF CR »,R t diagnostic buffer address 
08 AO 1A Bi 1F75 «4654 CMPW #RHDR_C_LENGTH, biker w _stie ts) : Is this a real diag buffer? 
H 13. 1F79 6544 BEQL 20 ; Br if not = no diagnostic info 
50 60 9QO C1 1F7B 6545 ADDL3 #8,(RO),RO 3; Address buffer past start time 
80 —00000000'GF 7D IF7F 6546 mova GPEXESGO SYSTIME,(RO)+ : Insert stop time | 
51 00C8 C4 00 1£86 6547 MOVL CB UCBO(R4) ,RI i Get address of UCB #0 
80 0082 C1 C 1F8B 6548 MOVZWL OCBSuy ERRCNTCRID (RO) : Insert error counter 
0263 30 1F90 6549 BSBW - REG_DOMP : Dump registers | 
54 sad 1F93 6550 208: POPL 4 ; Restore R4 
00000000 ' GF 1 1-96 6551 JMP G*COMSPOST 3; Post the I/0 and return | 
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an -SBTTL ASSPKT_NODCH = Assemble receive packets without Data Chaining 
ASSPKT_NODCH = Assemble receive packets #fth Data Chaining Disabled 
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Functional description: 

; This routine finds and returns the first recieve packet that the controller 
; has completed. This routine is invoked to assemble recieve packets if and 
; only if data chaining has been disabled. 
3 Inputs: 

3 R4 = CDB address 
: IPL = FIPL 

; Outputs: 

; Re = Status for request 

: R Address of corresponding receive ring descriptor entry 


6 
R1,R3 are destroyed. 
ALC other registers are preserved. 


Address of receive buffer 


ASSPKT_NODCH:: 3; Assemble receive packet 
BSBW NEXTMSG ; Get message 
BLBS RO,5$ ; Branch if one 
RSB ; Else return in error 


: Set CXBSW_R_NCHAIN, the number of oe in the chain, to 1 and 
; place the size of the recieved message in CXB$W_BCNT. 


5$: MOVW $“#1,CXB$W_R_NCHAIN(R2) ; There is only one buffer 
MOVW CXBSW_LENGTHTR2) ,- ; Set the message size 
CXB$W_BCNT(R2) 


If the current message is both the beginning and end of a packet, then this 
message will be returned (if there was no error in its reception). Otherwise, 
3; return the buffer to the free List, and attempt to get the next message. 


ASSUME | 
V_FLG_V_ENP+1 ee 
; Ts this message both the beginning 

; and the end of a packet? 

; Branch if so 
; Else increment counter / 
; Add the buffer to the recieve list 
; Continue to try and get the next msg 
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ALC other registers are preserved. 


IRP$V_CHAIN and IRP$V_COMPLX bits set in IRPS$W_STS if the receive 


$6 7 oe -SBTTL ASSPKT_DCH = Assemble receive packets with Data Chaining Enabled 
és : ASSPKT_DCH = Assemble receive packets with Data Chaining Enabled 
66 > Functional description: 
6613 : This routine assembles all receive packets into one chain of complex 
6614 ; buffers. This routine is invoked to assemble recieve packets if and only if 
oe : data chaining has been enabled. 
6617 ; Inputs: 
6618 ; 
oe 3 R4 = CDB address 
: | 
66 ; IPL = FIPL 
6622 ; 
; Outputs: 
; RO = Status for request | 
3 R2 = Address of first receive buffer in chain 
: R6 = Address of last buffer in receive ring 
$ R1,R3 are destroyed. 


| 

| 
Implicit Outputs: 

| 
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3 buffer is comprised of complex chained buffers. 
66 .ENABL LSB 
6637 ASSPKT_DCH:: ; Assemble receive packets | 
OODE 30 66 BSBW NEXTMSG ; Get first message 
0150 €8 66 BLBS RO,5$ 3; Br if one 
05 4 RSB ; Return in error 
6642 ; Save number of messones in chain in CXBSW_R_NCHAIN and total size of 
roe : all messages in CXB$W_BCNT 
1¢ A2. 01—s-B0 6645 5s: MOVW  $*#1,CXBSW_R_NCHAIN(R2) ; Compute total number of buffers 
1A A2 B4 oa? CLRW CXBSW_BCNTTR2) :; Init total size of buffers so far 
eet : Toss message if not first in chain. 
01 £0 6650 * BBS #RCV_FLG_V_STP,- ; Br if beginning of packet 
03 0B A2 6651 CXBSB_R-FCAGS(R2).7$_; 
00A5 «331 9626 BRW TOSSMSG ; Else, toss the packet 
00 £0 6654 7$: BBS #RCV_FLG_V_ENP,- ; Br if end of packet 
42 08 Ag 6655 XBSB_R-FCAGS(R2),20$ ; ..all done with this Loop 
5 DD 9038 PUSHL ; Save first receive buffer address 
53 O01 QA 665 MOVZBL #MAX_C_CHAIN,R3 ; Allow mn messages in chain 
66 =B0 0038 10$: MOV RCV_@ SLEN(R6),- ; Set size of buffer to maximum per rcv 
0c Ag 665 XB$Q_LENGTH(R2) : 
5 gp 660 PUSHL : Save address of current bufr in chain 
0088 6661 BSBW NEXTMSG ; Try for next message 
1 8ED 666 POPL ; Get address of last buffer in chain 
1750 =«€C€ 666 BLBC RO,12$ ; Toss all messages on error | 
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50 g DO 1FF $668 MOVL ( Ah. ; Get address of first in chain 
10 Al DO FF ? 5 MOVL R a L_LINK(R1) ; Store address in chain 
o¢ Al AO FF 66 ADDW CX6$W_LERGTH(R1),- : Compute total size of all buffers | 
A AO 1FFC 666 cress BCNT(RO) 3 _in chain = so far 
1C A 6 1FF ? $8 INCW CXBSW_R_NCHAIN(RO) ; Compute number of msgs in chain 
0 E 9 $6 BBS #RCV_FLG_V_ENP,- : Br if end of packet 
05 0B A 66 p GXBSB_R-FCAGS(R2) 158 : 
DA 5 F5 3 444 SOBGTR R3,10$ ; Loop if more than two in chain | 
3; Done wit oop and EN t st not set - toss all messages 
4 ers ith l d ENP bi ill Ll 
70~=11 494 9022 12s: BRB TOSAMSG :; Toss all messages 
| DO 2008 $679 15$: MOVL eget ; Save address of Last message 
52 8EDO Boe 6678 POPL ; Return first message address in R2 
0B Al 90 2011 6679 MOVB CXB$B_R_FLAGS(R1) ,- ; Save only last message buffer info 
0B A2 014 66 9 CXB$B_R_FLAGS(R2) : _in first message of chain 
14 Al B80 2016 66 MOVW CxB$W_R_CENERR(R1),- 3 DITTO 
14 A 019 66 - CxBS@_R LENERR(R2) : 
1A A A2 2018 668 SUBW CXBSW_BCAT(R2),- ; Compute size of last message 
OC Al 43 6684 XB$@_LENGTH(R1) ; and store in CXB format 
FOOO 8F AB 20 6685 208: BICW3 #*C<RCU_LERR_M ALEN> ; Return size of complete message 
14 A 024 9686 XBSW_R_LENERR(R2),-  ; 
1A A 3 peat CXBSW_BENT(R2) 3 
8 2032 ; We will only check CRCs on messages looped back to ourselves. 
03 €1 2028 6691 ¢rc:: BBC #RCV_FLG_V_CRC,- : Br if not a CRC error | 
4A 08 Ag O2A 669 CXBSB_R_FLAGS(R2),50$ : “ae 
EA Di 2020 669 CMPL CXB$G_R_SRC(R2) , = : Is this a ‘‘looped’’ message? 
O26F C4 030 6694 CDB_G-PAYADR(R4S : 
4 12 20 6695 BNEQ 508 ; Br if not = drop it 
$¢ A Bi 20 669 CMPW CXBSG_R_SRC+4(R2) ,- : Is it really ‘‘looped’’? 
027 ca 038 669 CDB_G_PRYADR#4 (RA) : 
A 12 3 ; 2808 BNEQ 0$ ; Br if not - drop it 
3 
03D 6700 ; There is not need to check the source address of the message, since 
03D 6701 ; while we are in loopback mode, we cannot receive messages from other 
8 4 of § 3 sources. 
' 4 of : 3; Calculate CRC on message 
50 1 ce 030 67 : , MNEGL #1.R0 : Initialize CRC value 
5 oe Be of MOVL Re R ; Copy address of first in chain 
4 11 2063 67 : BRB 35$ : Skip first chain 
53 0A go 45 67 $08: MOVL CXBSL_LINK(R3) ,R3 ; Get address of next in chain 
51 o¢ A ¢ 49 67 : $:  MOVZWL CXBSWILENGTH(RS),R1 : Get size of data | 
10 A D 4D eft TSTL CXBSL_LINK(R3) : Is this the end of the data? | 
is at BNEQ 40$ ; Br if no 
51 4 C 71 SUBL #Xxe—_C CRE RI ; Subtract out the CRC 
E Be 714 40$ PUSHR #*M2RT,R2,R3> : Seve registers 
38 AS 5150s E166 CF 715 CRC CRCTABLE ,RO,R1,CXBST_R_DATA(R3) ; Calculate CRC on data 
of BA 5F orig POPR #AH<R1RERS> ; Restore registers 
10 A D 61 671 TSTL XBSL_LINK(R3) : Is there a next? 
ts 64 erie BNEQ $ ; Br if YES 
51 a ¢ 66 671 ADDL R3,R1 ; Point to end of buffer 
50 0 oO 69 6720 MCOML =RO,RO ; Complement the CRC 
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= Assemble rece ve packets wi 5=-SEP-1984 

1 CMPL BO. CXBST_R_DATA(R1) 
BNEQ 

BICB 


50$: MOVZBL 
100$: RSB 


; Toss bad messages 
TOSAMSG:POPL = R2 


R_FLAGS 
orpess RAORMAL. ee 


{ypgnss: Iie COB _W_UFDCTR(R4) ,W 
110$: PUSHL  CXBSL°LINK(R2) 
BSBW ADDRCOULIST 
POPL Re 
BNEQ 1108 
1208: CLRL RO 


BBC #RCV_FLG_V_ENP 
Akcye B_FCAGS(R6) ,130$ 


BRW SSPRT-DCH 
130$:  BSBB NEXTASS 
BLBC RO, 1008 
B 126$ 


BR 

-DSABL LSB 
: Find next message and check own bit 
NEXTMSG: : 

C RO 
ste B_RCVCNT(R4) 


MOVZBL CDB_B_LASTRCV(R4) ,R6 
MOVL  CDBTL RRADDR(R4) LR6].R6 i 
BBS #RC V_OWN,RCV_B_FL 
REMQUE @CDB~Q LREVPND (Ra) -RO™ 
BVS 208 ~ 
CLRL CXBSL_LINK(R2) 
DECB  CDB_B-RCVCNT(R4) 
INCB © CDBB reAsTRY (RA) 
BICB = #* C2MAX 
CDB_B XCASTREV (RE) 

CMPW 

L 


BEQ 
BUG_CHECK NOBUFPCKT,FATAL 
; Adjust quota and release mapping slot 


PDEA ALAAAAAAAA_AAAA AAA AAA AAA AAAAAAAAAAA AAA AAA A AAAS AAA AAAAO 
BOs Ge Ge 
So 
ed 


SSS SSD DDD DDD DDE DE Tt Be EEE 


NAMA AR SO OO NA UNE WIN SO OD NA UE WIN 9 OOD NAN EWI 0 ODA NEP S$ OOD NAUN EP 


MOVW = RCV_W LENERR (RG) - 
ENERR(R2) 
BICw3 wCcRCT CERN R ALEN>, - 
cxesu~ BH LENE THCRS) 
MOVB RCV B FLAGS(R6),- 
FLAGS (R2) 
TSTB B_RQOOTA(R4) 
BNEQ 
DECB pane 


ancy FLG_M ERRSIRCV. FLG_ é tre. 


$639 yuies Macro V04-00 
2 DRIVER. SRCIXEDRIVER.MAR; 1 


; z rf not CRC good? 
r Else, indicate good data 
; Return success! 


Restore R2 
Up the counter 
Save address of next in chain 
Add buffer to receive List 
Restore address of next Z chain 
Br if more in chain 
Assume failure 
Br if NOT end of chain 
et rest of message 
Else, try for next valid message 
Get — nena 
Br ifn 
Check 7 mere possible 


Assume failure 

Sa Gere FERRIER in progress? 
r 

Get last ring entry completed 

Retrieve las tia entry address 

S$(R6),20$ ; Br if not done 

Get next receive 

Br if none aval table (yet) 

Assume not a chained buffer 

One less receive pending 

Bump ring pointer 

Modulo receive ring entry size 


Be Se Se Se Se Se Cjpre Ge Se Oe Oe 


Rey. W_RID(R6) ,CXBSW_XE are ta : Is wate 8 match??? 


es, goo 
atal error 


; Else, 
Save length and error bits 
Store length in CXB format 
also 


Save flags byte 


pre cunning on extra QUOTA? 
r 
Else, decrement extra QUOTA 


<= 


Ss 


I 9 
XEDRIVER = VAX/VMS DEUNA/DELUA Driver 16-SEP-1 AX/VMS Macro V04-00 Page 145 | 
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07. «11 6 BRB 16$ ; Continue 
goes C4 =O 3$: ADDW CDB_W Meta He: ; Replenish CDB quota 
OBA C4 he : 
51 2A2 OA 


( ; 
MOVZBL chbee Re "NE. MSLOTeR2), R1 ; Get mapping slot number used 
Conditionalized use of buffered data paths 


Sete te tt — 
o 
ww 


DOOCSCCOCOCOCOCOT TT 


A 67 
wi 
780 
1 th 
107 6788 
107 S988 
107 67 6 IF DF RCV. DATAP | 
107 67 PUSHQ §R ; Save R2, R3 
107 67 3 MOVL COB_L “vege coy) R5 ; Get address " = #0 
107 67 MOVL ucesc R5 ; Get CRB addre 
107 6790 MOVAL COB L “RCVMAPCRGIER Get map Info stot eddress 
, 44) MOVL (R2), CRBSL_ INTDOWECSON Re baceta ) ; Copy data path number to CRB 
107 ore ASSUME 6C38. DATAPATH EQ VECSW_MAPREG+3 
: 4 one CLRB (R2)~ ; Clear data path number used 
19? of 38 -IFTF =; DF RCV_DATAP 
107 6798 CLRBIT R1,CDB_B_RCVMAP(R4) ; Clear in use flag | 
10¢ $800 .IFT =; OF_=RCV_DATAP | 
10C ety PURDPR ; Purge the data path (ignore errors) 
10C 680 RELDPR ; Release the data path | 
H ery: POPQ R2 ; Restore R2, R3 
10¢ 6806 .ENDC = ;_DF_RCV_DATAP | 
50 01 QA 210 $508 MOVZBL S*#SS$_NORMAL ,RO ; Return success! 
05 210F 6809 208: RSB 
| 
| 


s5 | 


OM DOIN ES MD ONWMNM OOM DAOAUWOOOCOCOCOCOCOCOOOCOOCOOOCOCOOCOO 1M 


ve 


e 
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-SBTTL MOP_CTR_REQUEST = PROCESS MOP READ COUNTERS REQUEST 
"MOP. CTR_REQUEST = PROCESS MOP READ COUNTERS REQUEST 
FUNCTIONAL DESCRIPTION: 
This routine is called to process a remote request to read the LINE counters. 


6. 
6) 


seks" 


Mm 
oo 
DPR APAPAAAAA AA AAA A AAA AA AA AAA AAA AIAAAOAOAIAASASAOSASAS Cm 
vor 
ze 
oF 
mo 
vo 


C 


Inputs: 


R2 = Address of the received message 
R4 = CDB address 


Outputs: 


RO,R1 are destroyed 
R4 is preserved 


MOP_CTR oPEWEST ss 
CXBSL LINK(R2) 


CMPW #IRPSC_LENGTH- 
+CXBSC~- HEADER+3- 
+MOP_CTR_SIZE+8,- 

xBS0_S 


; Process a read counters request 

; Is this a chained message? 

; Br if yes, return packets 

: Is a receive buffer large enough? 


o- 
zu 
m—- 
or 
Sete eee 


IZE(R2) 

BGTRU 0$ ; Br if no, ignore message 
MOVL CDB_L_UCBO(R4) ,R5 : Get address of UCB # 
mova CXBSG-R. SRC(ROS -RO Save source node address 
MOVW CXBST_R_USERDAT+#1(R2) sins Pho! the Peauess D 

IRPSC ~TENGTH®CKBSC Ae pER+1(R2) to the Message block 
BSBW BLD IRP_CO ; Turn the message block into an IRP 
MOVa RO, IRPSG_STATION(R3) ; Set the return node address 
MOVL RG Ty R3) ; Save the CDB address 
MOVE axe SFC Ve MOPCTR,= : Request the counters 


‘C9 Od Cd Gd Cd Cd Cd CD Cd Cd Go Cd Cd Cd Cd Co Cd CD CO CO COCO COCO COCO CD CUCDCDOCDCRCECDCDOCDCD = MmC 


(R 
mMovw =: S*#SSS HORMAL IRPSW_XE STATUS (RS) ; Assume success 
MOVAB SOP. CTR BUILD, IRPSL_PID(R3) ; Store return addre 
RSB $ Queue the request to the SSEUNA/DELUA 
; Error - returns packets to receive queue 


BOS:  PUSHL CXBSL_LINK(R2) 
BBM A DRCVLIST 


L 
BNEQ 80$ 
RSB 


: Save next in chain 

: Add buffer to receive list 
; Restore next buffer 

: Loop if more 

; Return to caller 


PAE EEK EE PWIND) 2 ef 


CONAN AN SO ONAN $$ O OD NAME WIN O OD NAUE WH OOWONOUS WN 


/ 
T 
10 A D5 
3 12 
B81 
08 A2 0158 BF 
28 «(1A 
55. 00C8 C4~—s 0 
50 7 A 7D 
47 A B0 
0100 ¢ 
069F 0 
40 AS 50 D 
14 A353 54 00 
19 «90 
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rai ht MOP_CTR_BUILD = BUILD THE MOP COUNTER RE ae ott 0:96:34 YORIVER. SRETKEDRIVER.MAR: 1 . (5 
} } g 6 ae -SBTTL MOP_CTR_BUILD = BUILD THE MOP COUNTER RETURN MESSAGE 
} : ? 4 ; MOP_CTR_BUILD = BUILD THE MOP COUNTER RETURN MESSAGE 
6 é ; FUNCTIONAL DESCRIPTION: 
151 6 96 : This routine is called to build the return message in response to a 
! : ? : MOP read counters request. 
6 $3 3 Inputs: 
6 ft ; RS = IRP address 
13! ? oF : Outputs: 
13 6875 : R4 = CDB address 
! : ° 1 ; RS = UCB address of UNIT 0 
13] 6 28 : RO,R1 are destroyed 
131 $880 ° 
151 ose MOP_CTR_BUILD: ; Build the MOP counter return msg 
03 38 AS gs 151 68 ¢ BLBS IRP$L_1IOST1(R5),10$ ; Br if error 
0619 1 133 one? BRWwW DELETE_BLOCK ; Else, deallocate the block 
\ > 138 6885 10$: MOVL R5,R3 3; Copy IRP address 
54 14 A3 dO 158 ttt MOVL IRPSL ASTPRM(R3) ,R4 ; Get the CDB address 
o1Fs ef BB 15F ret PUSHR #*M<R3,R4,R5,R6,R7,R8> 3; Save registers 
6 4 ODO 163 6888 OVL R4 : fopy gp address 
53 010C C3) 9 166 6889 MOVAB IRPSC_LENGTH*CXBSC_HEADER(R3),R3 ; Point to start of message block 
83 oe 9 16B 6890 MOVB tH CTR_REPLY, (R3)F : Set function to reply 
8 8 1g 6891 TSTW (R3S+ ; Skip request ID (filled in earlier) 
57 gptD CF 9E 21 p 6 36 MOVAB MOPCTRTAB,R7 3; Get address of MOP counters 
8 87 9A 2175 6893 208: MOVZBL (R7)+,R8 ; Get the offset to the counter desired 
1€ 13 2178 6894 BEQL ; Br if end of table 
52 QCEA C6 9 17A 6895 MOVAB CDB_G_CUDB(R6) ,R2 ; Get offset to counter block 
58 5 C 17F 6 36 ADDL Re, ; Compute address of the counters 
52 67 07 2 F 1 $ 689 EXTZ #0,847,(R7) ,R2 3; Get the width field without bitmap 
63 «68 28 187 6898 MOVES 2. (RB), (RS) : Copy the counter 
51 8 A 2188 6899 MOVZBL (R?)+,R1 : Get the width field again 
HE or 7 oe 136 6900 BBC #7,R1,208 : Br if no BITMAP to return 
3° FE AB BO 2192 6901 MOV 5 (RBS . (R34 : Else, store the BITMAP 
DD «(11 12 a4 RB 208 3; Loop for next counter 
13 e3 : : Now copy the counters that the table can't handle 
8 08 C6 BO 2198 69 $ S0s: MOVW CDB_W_UFDCTR(R6),(R3)+ ; Copy the UFD counter 
3 0266 B80 219D 69 MOVW  COBG~CUDB+24(R65,(R3)+ : Copy the OVR counter 
HE 04 (6 8B the 69 3 MOVW COB_G_CUDB+26(R6),(R35)+ ; Copy the LBE counter 
D4 C6 B 1A7 69 MOVW COB_W get io (R3)+ 3; Copy the UBU counter 
F8 BF BA Tac 6910 POPR #*MZR3,R4,R5,R6,R7,RB8> : Restore registers 
Oc a3 71'CE 9E 2180 6911 MOVAB weDELefE 6LOtK {Rpg _pipiRs) ; Set the return address 
52 C4 G3 9— 2186 6916 MOVAB = IRP g LENGTH(RS) ,R - Get address of Cx 
OA A B $9 1BB 691: MOVB #DYNSC_CXB cxe7e TYPE(R2) ; Rake it look Like a CXB 
C 8F BO 21BF 6914 MOV)  #MOP_CTR SI7E+8+3,- : Set size of transfer 
1A A2 te 6915 CXB$O0_BCAT(R2) : 
1¢5 6916 ASSUME CXBSC"HEADER EQ CXBST_T_DATA+XE_C_HEADER 
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ira ht MOP_CTR_BUILD = BUILD THE MOP COUNTER RE §-§ P=-1984 88: $334 YORIVER. SREINEDRIVER-MAR: 1 ° ey ve 
18 Ag 34 8 \¢3 917 MOVW . “est. T =DATA A, CXB Si aes * ; Set offset to start of data 
24 A b 1¢ 318 MOVL Taps BSL ve IRP addres ss in CxXB | 
28 A2 GOA 1¢D 691 MOVG Stat rin(ns cxBsa orinat panne ; set STATION in CXB 
¢ A2. QO 9 102 6920 MOVB XMIT § XB$8_X R2) ; Set function request in CXB 
3A A2 GE 2106 6921 MOVAB Hie Fey Bh A(R2) ,R i get R2 to start of data 
40 a3 7D sO O1DAsO469 3 MOV IRPSQ~STATION(R35,- Set th destination address 
§ 1DD 69 XBUF _G _DEST(R2) 
0260 8F B80 108 924 MOVW #nI_CTR_PROTYP,=- ; Store the protocol type 
OC A 1E2 6925 XBUF_w_TYPE(R25 
55 ICA DO 2164 69 § MOVL TRPSC OCB(R3) RS 3; Get back the uce address 
08 A 5 dO 1€8 69 MOVL R5,xB0F Lucene? Save UCB addre 
0080 04) «§=6«O0C4 CC oF if¢ 69 8 INSQUE Tab ee LENG TH(R3) ,@CDB_Q _SMTREO+4 (RG) : Tacert request on request que 
E28 a 4 ; BRW XMT_ACT_START “; Startup the reply 
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raved REG_DUMP = DEUNA/DELUA ERROR LOG AND DIA 5-SEP-1984 8:79:34 LORIVER. SREIXEDRIVER.MAR: 1 ’ ted 
if e3 § iat -SBTTL REG_DUMP = DEUNA/DELUA ERROR LOG AND DIAGNOSTICS REGISTER DUMP 
if 2 : ; REG_DUMP = DIAGNOSTICS REGISTER DUMP ROUTINE 
if §3 § ; FUNCTIONAL DESCRIPTION: 
1F6 69 3 ; This routine is used to return the DEUNA/DELUA error log and diagnostics 
ite 6340 3 buffer on error or diagnostic Q10 function. 
176 6941 ; Inputs: 
3 6948 : 
a $88 ; RO = Address of the buffer 
1F 946 ; R4 = CDB address 
1F6 6945 ; RS = UCB address of the unit 
1F6 9208 3 
. 1F6 6947 ; Outputs: 
1F6 6948 ; 
1F6 6949 ; RO,R1 are destroyed 
1F6 6950 ; R4,R5 are preserved 
1F6 6951 ;-- 
1F6 695¢ REG_DUMP: : 
1F6 695 ASSUME DIAG_L_EXTRA EQ 32 
1F6 6954 ASSUME DIAG_Q_PCSR EQ DIAG_L_EXTRA+4 
1F6 6955 ASSUME DIAG~Q"PCBB EQ DIAG-G-PCSR+ 
1F6 6996 ASSUME DIAG"W~ERR Ed DIAG_0_PcaB+8 
1F6 695 ASSUME DIAG_G_HWA Ed DIAG W_ERR+2 
1F6 6958 ASSUME DIAG W-ERR2 EQ DIAG_G_HWA+6 
05 €1 1F6 6959 BC #COB-STS_V_RCBI,- ; Br if no RCBI error 
06 025A C4 1F8 6960 CDB_6_STS(R4),10$ ; 
0400 8F AB 21FC 6961 BISW #XE-PTSRO_M r¢BI,- ; Else, indicate the error 
10 A4 $0 696 DB-L_PCSROTR4) : 
80 OA 9A 8 939? 10$: MOVZBL #DIAG_C_EXTRA,(RO)+ ; Insert number of returned long words 
32 6965 ; If we are in the RUN state, then clear bit 13 which toggles 
05 696 3 every second. This is to give the user a consistent ‘view’ of 
b2 e444 3 the UNA state! 
10 EF 05 6969 EXTZV #XE_PCSR1_V_STATE+16,- ; Get the current state 
4 0? SY) #XE_PCSR1_S_STATE,= : (from high word) 
51 10 Ad 08 697: CDB-L_PCSROTR4) RA : in RI 
1 03 91 2208 697, CMPB 0s #XE~STAT_V_RUN,R1 : Are we in the RUN state? 
05 12 OE 697 BNEQ 608 ; Br if no, don't gear ByTIs 
10 6974 CLRBIT #13+16,CDB_L_PCSRO(R4) ; Else, clear BIT15 (in high word!) 
80 10 a4 00 2213 6975 208: MOV. = COB L_PCSRO(R4),(RO)+ ; Insert Last CSR contents 
4 1 97 CLRL (ROT+ ; Nothing from last port CSRs 
0 0D6 C4 D 18 697 mOVa CDB_G_PCBB(R4) ,(RO)+ 3; Copy last PCBB info 
0 OCD C4 8698 2444 MOVZBW CDB_ “DIAG1(R4S (RO)+  ; Return error flags info 
0 69 (4D 697 MOVL  CDB-G"HWA(R4),(RO)+ : Return hardware physical address 
9 60 (4 iB A 6980 MOVW CDBIGTHWA+4(R4),(RO)+ aoe 
8 OOCE C4 34 F 6981 MOVW CDB_W_DIAG2(R4),(RO)+ |; Return extra error info | 
4 6982 RSB | 
| 
| 
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e3 : aa -SBTTL RESTART_ROUT = PROCESS EXPIRATION OF RESTART TIMER 
3 § + RESTART ROUT = PROCESS EXPIRATION OF RESTART TIMER 

63 : Functional description: 

89 : This routine is entered when the RESTART delta time has expired. The action 
6991 ; is to check if the specified unit has been restarted, if so, then it is 
43 3 automatically restarted. 

994 : Inputs: 

995 ; 

996 ; R4 = COB address 

344 3 RS = TQE address (but must be at least as long as an IRP) 
699 ; 

7001 + Implicit input 

¢ im c nputs: 
7002 ; : 2 


| 
| 
| 
| 
| 
IPL = IPLS_TIMER 
| 


5 
; 
: 
2 ppbe IRPSL_RBOFF(RS) = UCB address for UNIT 
; Outputs: 
4 FRE f oe 
238 7097 RO-R3 are destroyed. 
$32 £308 -ENABL LSB 
35 7010 RESTART_ROUT:: ; Process expiration of restart timer 
55 oD 35 7011 PUSHL R5 ; Save 
7 eis ASSUME IRPSL_RBOFF GT TOESC_LENGTH 
52 30 AS 9 7 701 MOVAB TQESC™ LENGTH(RS) ,R2 ; Point to IRP portion of TQE 
55 0098 C2 0D is ele MOVL IRPSL_RBOFF(R2),R5S ; Reset RS to UCB address 
re 7018 3; Turn TQE into an IRP 
a ae 4 444 AQ = (R2)+,R3 ; Copy IRP address, skip to size field 
4 701 ASSUME IRPSW_SIZE EQ 8 
4 7020 ASSUME IRP$B_ TYPE EQ IRPSW_S1ZE+2 
4 7021 ASSUME IRPSB"RMOD EQ IRP$B_TYPE+1 
-. & & 43 7 § DL #2,R2- : Skip size field 
82 OA B60 $8 7 OVW ory Ce} IRP,(R2)+ ; Set type to IRP 
49 7024 ASSUME IRPSL_PID €Q IRPS$B_RMOD+ 
82 228E'CF 9E 49 4} 5 MOVAB WR +ORN N_IRP,(R2)+ : Set return address form IOPOST 
4— 7 § ASSUME IRPSL wAST EQ IRPSL_PID+4 
4E 4 ASSUME }ROSL ASTPRM EQ IRPSL ~AST+ 4 
82 7C 4 8 LRQ R2)+ Clear AST, ASTPRM 
3 £0 ASSUME TRPSL_WIND EQ IRPSL asrPhns4 
7030 ASSUME IRPS$L_-UCB EQ IRPSL_QIND 
8 D4 50 7031 CLRL (R2)+ eae WIND 
82 b0 52 7 § MOVL R5,(R2)+ * Set UCB address 
55 7 ASSUME IRPSW_FUNC EQ IRPSL_UCB+ | 
; 7034 ASSUME IRP$B_ XE_FUNC EQ IRPS$W_FUNC+1 | 
7035 ASSUME IRPS$B “EFR EQ IRPSW_FUNT+ 
4 § ASSUME IRPSB"PRI EQ IRPSB-EFN+1 
ASSUME IRPS$L_IOSB EQ IRP$B_PRI+1 
82 1700 8F 80 7 3 VW aeat FC_V_RESTART@85, (R2)+ Set, function request 
B4 225A 7 CLRW (Re ? : Clear 
L + 3 ane 
D4 225C 7040 CLRL = (RR) Cl Fosé 
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E 4 ASSUME ieeu-creN EQ IRP$L_IOSB+4 
E 4 ASSUME IRPSW_STS EQ IRPS$W 
E 4 ASSUME IRPSL_SVAPTE EQ IRP WLSTS+ 2 
82 7C 44 CLRQ (R2)+ Clear CHAN, STS, SVAPTE 
6 f 45 ASSUME IRP$W_BOFF EQ eds gynets 4 
6 ¢$ ASSUME IRPSW_BCNT EQ bt ng BOF F + 
60 704 ASSUME it gl TT EQ IRP $1 8C 
60 7 ‘3 ASSUME IRPSL_MEDIA EQ IRP Q PBCNT#6 
8 ge 60 704 LRQ (R2)+ Clear BOFF, BCNT 
82 0 C 6 7 29 MOVZWL #<XE_FC_V_INIT@8>,(R2)+ : Set MEDIA 
8 D4 2 7 2) LRL (R2)F ; Clear MEDIA+4 
of 38 3; RESTART the UNIT 
67 epee DSBINT ucese FIPL(RS) 3; Raise IPL 
4099 8F AA $f 7 28 BICW #UCBSA_XE_INTERLOCK,- ; Clear the RESTART interlock 
68 AS £2 Mat i BevSTS(R5) : 
00 E2 74 7058 BBSS #UCBSO_XE ys to ; Br if unit already inited 
09 68 AS 76 7059 UCB$W_BEVSTS(R5) ,10$ : 
ECEs 30 79 7060 BSBW START ; Start protocol 
08 50 EB zC 7061 BLBS RO, 308 : Br if success 
Eca¢ 30 7F ie: BSBW STOP 3; Shutdown unit 
, a dO Hf 7064 10$: MOVL R3,R5 3; Point RS to IRP 
07 10 2285 7065 BSBB  —s- RETURN_IRP : Return the IRP 
87 PRG 30$: ENBINT ; Re-enable interrupts 
55 BEDO 228A 706 POPL 5 : Restore R5 
05 8D 7068 RSB ; Return to caller 
28E £069 | 
e8e 7070 RETURN_IRP: 
50 D0 AS 3 2 3 7071 MOVAB <-TQE$C_LENGTH(RS),RO ; Get address of start of structure 
00000000'GF 1 292 7072 JMP G*COMSBRVDEALMEM ; Deallocate the IRP 
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Hare TQE_TIMER = PROCESS EXPIRATION OF TQE TI -SEP-1984 0:79:34 LORIVER. SREIXEDRIVER.MAR: 1 ’ (85) 
2 a -SBTTL TQE_TIMER = PROCESS EXPIRATION OF TQE TIMER 
4 6 ; TQE_TIMER = PROCESS EXPIRATION OF TQE TIMER | 
4 4 ; Functional description: 
; 
9 0 ; This routine is entered when the TQE delta time has expired. The action is to 
4 1 3; check all timer cells and shut down the controller if any have expired. 
2 f 3 Inputs: 
9 5 3 Re = coe address 
4 § 3 = address 
4 4 } $ IPL = IPLS_TIMER 
3 Outputs: 
et 
98 Ph36 : RO-R3 are destroyed. 
3 N54 § R4,R5 are preserved 
38 7095 -ENABL LSB 
98 7096 TQE_TIMER:: 3; Process expiration of TQE timer 
50 00c8 C4 00 98 Aaa MOV COB_L_UCBO(R4) ,RO ; Get first UCB address 
90 7098 DSBINT UCBSB-DIPL(RO) 3; Sync access to UCB and CDB 
00. «€1 A& 7099 BBC #CDB_STS_V_INITED,=- ; Br if NOT inited 
71 025A C4 A6 7100 CDB_6_STS(R4) ,STOP_TOE 
0222 (4 95 gAA 7101 TSTB = CDB“B-TIM_XMT(R4) ; Is the xmit timer going? | 
06 13 gene 7108 BEQL ‘108 : Br if not | 
0222 (4 97 BO 710 DECB CDB_B_TIM_XMT(R4) ; Timer expired? 
me tS B4 7104 BEQL TIMOUT ; Br if yes | 
0223 ce 9 44 £182 10$: pter $886. TIM_ONI (RS) ; Mg fhe = timer going? 
; Br no 
0223 (4 97 BC F109 DECB COB_B_TIM_DNI(R4) ; Timer expired? 
4— 13 cg 7108 BEQL TIMOuUT ; Br if yes 
oc «Co C2 7109 208: BBC #XMSV_STS_BUFFAIL,- ; Br if NO buffer allocation failures 
07 00C4 C4 2c& 7110 CDB_L-DEVDEPEND(R4) ,30$ ; 
C8 7111 SETIPL CDB_B_FIPL(R4) ; Else, sync access to UCB & CDB 
FODE 30 cc abt BSBW FILCROVLIST ; And try to replenish receive buffers 
cf oi? 30$: ENBINT ; Restore IPL 
D 7115 .I1F DF POINT 
D ois PUSHQ R4 3% Save R4, RS 
55 00c8 C4 00 D5 711 MOVL CDOB_L_UCBO(R4) ,R5 3% Get UCB address of unit 0 
DA £118 DSBINT UCBSB_FIPL(RS) i% Sync access to UCB 
55 30 AS 09 E1 7119 50$: MOVL UESSL LINKCRS) JAS 3% Travel down UCBs 
a ES 7120 BEQL $ 3% Br if end of List | 
E7 71021 ASSUME UCBSV_XE INITED EQ 0 | 
F6 68 AS” ED E7 71 § BLBC UCBSW-DEVSTS(R5) ,50$ 3% Br if not inited 
046 «€1 eB 71 BBC eucest XE_RUN,= 3% Br if not running yet | 
F1 68 AS ED 7126 UCBSW BEVSTS(RS),50$ 3% | 
91 FO 7125 CMPB @NMASC_LINPR Pole 3% Are we in point to point mode? 
00D8 C F2 71 § f $8_XE_PROTRS) | 
EA 1 F571 BNEQ 32 Br if not 
B rr 2 8 BITW #UCBSM_XE_START!- 2% Br if not in startup or 
FS 71 i ing XE-STACK,= 7% «stack wait states 
68 AS 0060 8F FB 7130 UCB$W_DEVSTS(R5S 3% 
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E 1 FD 71 BEQL 50$ 3% 
S217 Cd gerE ROVL —UCBSLXE_STIRPCRS).A2 Get startup IRP address | 
4 4 7) BSBW BLD. TRT_IRP 3% Build the startup IRP 
D 1 7 7134 BRB $ | re. for more 
9 7135 70$: ENBI 3% Re-enable interrupts 
Cae POPQ R4 3% Restore R4 
; i ~ENDC 
05 of 7138 RSB ; Return to caller | 
19 7141 TIMOUT: PUSHQ R4 ; Save R4, RS | 
55 29 28 1 o1eg MOVL RO,R5 ; Copy address of UCBO 
ie 18 14 BSBB DEV_TIMEOUT ; Else, timeout hes occurred 
1 7144 POPQ RG ; Restore R4, 
1B 7145 
18 £146 STOP_TQE: ie 
0B AS 046 BA e31B 714 BICB #TOESH REPEAT . TOESB_ naybeins Stop. the timer 
10 8A 1F e168 BICB #CDB_STS MER,= : Indicate that timer is stopped 
025A C4 1 714 Cb. ts(Ra) : 
04 BA 4 7150 BICB SDPTSAN NLOAD,=- : OKAY to unload the driver now 
0000000D ‘EF 6 7151 PTSTABSDPTSS. FLAGS ; 
Ae V1 B £136 BRB 0$ ; Leave 
232D 715 -DSABL LSB 
| 
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A -SBTTL TIMEOUT = TIMEOUT SERVICE ROUTINE 
TIMEOUT = TIMEOUT SERVICE ROUTINE 
Functional description: 


a nec 


30 
ma 
o,y 
c™ 
“oo 

m 


This routine is entered on device timeout. The action is to 
shut the unit down. 


Inputs: 
R5 = UCB ADDRESS 
IPL = DIPL 
Outputs: 


R3,R4 are destroyed. 
RS is preserved 


De Se Se Se Se Oe Os Se Se Se Se Se Se Se Se Se Se Se Ss 
> 


» ENABL LSB 
TIMEOUT: meout or powerfail 
64 A5 03 AA BIcW #UCBSM_TIM!UCBSM_INT, uceiw. sTecns) : Disable timer 
ASSUME UCBSV_XE_INITED €Q 0 
38 68 AS ED BLBC UCBSW greene 0$ ; Br if not inited 
05 =€1 BBC uc 3; Branch if device timeout 
64 AS Matis srstnss 
OF DEV TIMEOUT 
54 0180 C5 09 MOVL uCcBSL _XE_CDB(R5) ,R4 ; Get CDB address 
oie a BEQL ; Just return if no CDB : 
80 8F 88 B1S82 #CDB_STS_M_POWER,=- ; Set the COB power failure bit 
025A C4 CdB_6_ST STS(R4) 
Ww. 3 BRB 10$ ; Go handle the error 


DEV_TIMEOUT: : ; Hardware device timeout | 
MOVL 


PAPAIN BEE EEE BWANA NAIA PROPIPIPOPIPPOPIPIPOPIPOPPPUPOPIPPUNIFNYD 


PRORORUR) 3 
SOOOOO OOOO OOOO 0909 09 09 09 09 09 09 09 SI NIN NI NINSINNN NIA AAA AAAAOOUIIUIM 
WR SO OONAWUE WIN $$ O OO NA UE WW OS OD NAME WIN HO OONA UE WI OOONOUM 


UCBSL_CRB(R5) ,R4 ; Get CRB address 
ASSUME IDBSL~CSR EQ 6 
53 2¢ B4 v0 MOVL  a@CRBSC_INTD+VECS$L_IDB(R4),R Get CSR address 
3. 20 B80 MOVW #XE_PCSRO_M_RSET PCSROCRSS g B. the device 
54 1006 OD MOVL CRBSL_AUXSTRUC(R4) .RG ; Get CDB address 
wm 3 EQL 0$ r if no CDB | 
SETBIT #XMSV_STS_TIMO,CDB_L vevisteng nt § Set error status | 
53 0100 8 B0 10$:  MOVW #XE_PCSROM_USCI,R3 ~ Indicate fatal error 
ge PUSHL R5 : Save UCB address 
F59A BSBW SCHED_FORK ; Schedule a fork process 
55 BED? POPL R5 : Restore UCB address 
20$: RSB 3; Return to caller 
-DSABL LSB 
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: me .SBTTL ALLOC_CDB = ALLOCATE THE CDB 
$ ; ALLOC_CDB = ALLOCATE THE CDB 
: Functional description: 


; This routine allocates and initializes the CDB. 
Inputs: 

R5 = UCB address 
Outputs: 

RO = Status return for request 

ALL other registers are preserved. 


POAASSSSASAASSOSOSASOSASASS CFS 
MMMMMMMMMMMmMmmMmmmnmmmmmrcre Oca 


> Bee Se Oe Se Se Se Ge Se Ge Se ee 


LLOC_CDB: ; Allocate a = 


3E PUSHR #*M<R1,R2,R3,R4,R5> : Save registers 
51 02BA BF MOVZWL #CDB_CLENGTH,RI : Get size of CDB allocation 
00000000 ' GF JSB G=EXESALONONPAGED 3 Try to allocate COB 
47 50 BLBC Boo o08 ; Br if error 
24 AS ucest CRB(RS),R ; Get CRB address 


CRBSL AGxStRUC (RS) 
MOVL beast > DB(RS) ,R4 Ro 


; Store CDB address 


No MOOOSCOO Cone 


= 
> 
= 
-oco wovcvVvIT°c7Too m— 


53 
0180 C4 33 10$: MOVL ,UCBSL re CDB(R4) 
0269 C2 MOVAB Ce gle ; Store address of NI device's 
0090 C4 GeBSC™ “NI gn unique hardware address 
54 30 AG ; Position to next UCB and continue 


MOVL UCBSL “LINK(R4) ,R4 
10$ ; if there is a next UC 
Initialize CDB 


The PADDING MODE and the ECHO MODE of the DEUNA/DELUA will default to 
the enabled (ON) state. 


ASSUME NMASC_STATE_ON EQ 0 


SOO NAUE WN OOO NAME WIN O OD NAU EWN OOO NOUS Wit OO 
= 
o 
<= 
md 


PUSHQ pf ; Save CDB, UCBO address 
42 51 0 62 0 MOVCS #0,(R2),#0,R1,(R2) 3; Zero the structure 
POPQ Re 3; Restore CDB, UCBO address 
0ooc8 C2 «53—is«éOO MOVL R3,CDB_L_UCBO(R2) ; Setup address of UCB unit 0 


: Initialize fork block in CDB 


; ASSUME COB_L Fart EQ 0 
ASSUME cD TFOQBL EQ CDB_L_FOFL+4 


ao K L 
ASSUME cbB ‘V SIZE EQ CDB_L _FOBL+4 


: Skip Link pointers 


PDP PAA 


—OOOnNOulwnr— 


i 
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B6 726 ASSUME CDB_B_TYPE EQ COB_W_SIZE+ , | 
B6 6 ASSUME (CDB_B rant EQ CDB_B_TYPE+ 
82 083302BA 8F 00 86 64 L #<<ZIPL$_XE F you ge? toe C_CDB>a16>!-; Set size, type and FIPL 
BD 7265 COB_C_LENGTA, (Ro) + | 
BD g sg ASSUME CDB“L-FPC EQ’ CDB_B_FIPL+1 | 
82 F560 CF GE 238 6 MOVAB FORK PROC, (R2)+ ; Set fork process address 
50 01 «OA e3c2 7 68 MOVZBL SnASS$_NORMAL RO ; Return success 
E BA e3cS 7 5 90$:  POPR  #*M<R17R2,R3,R4,R5> : Restore registers 
05 C7? 7270 RSB ; Return to caller 
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«SBTTL SHUTDOWN_UNA = SHUTDOWN DEUNA/DELUA AND ALL UNITS 
SHUTDOWN UNA = SHUTDOWN DEUNA/DELUA AND ALL UNITS 
Inputs: 

RS = UCB address of unit #0 

IPL = FIPL 
Outputs: 

R3-R5 are preserved. 

RO-R2 are destroyed. 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
> 4 


SHUTDOWN _UNA: : ; Shutdown DEUNA/DELUA 


SOONA NE WN  S OD NAME WIN 9 OO NA NEW | O ODN EU 


tt I > H~QHOODODOOOO OO O00 OOO OOO 000909 090909 C9909 INI NINN 


; Ress the data path 

; Release the data path 

; Release the ote register 
#1,-4(R6) ; Reset mapping inf 

R7, CDB_B_RCVMAP(R4) beer mapping slot fla 
AOBLSS #MAX_C7RCV#MAX_C_XMT,R7,20 


FC AG «=601Sts«C 
ae tr Of F2 
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7 
4 
7 
7 
7 
7 
7 
7 
f 
00 =«=—£€0 7 Bes #CDB_STS_V_INITED,=- ; Br if DEUNA/DELUA inited 
01 025A C4 A 7 cdB_6_ STS R4),10$ 3 
05 ; c 4 RSB ; Else, return 
OOE8 8F 6B ; F 4 108: PUSHR #*M<R3,R5,R6,R7> 3 Save registers 
3; Shutdown and reset controller status 
3 4 Shutd DEUNA/DELUA and Ll 
52 24 A5 00 7 MOVL UCBSL_CRB(R5) ,R2 ; Get CRB address 
7 ASSUME IDBSL~ Q 
32 262 00 | ae MOVL acrBsC INTD+VECSL_ nee R2 ; Get CSR address 
| 7 DSBINT matt BIPL(RS) Raise IPL for master clear 
20 «AB 7 BISW #XE_PCSRO_M_RSET,- : Disable device 
62 4 7 PCSRO(R2) 
025A C4 63 8F 8A 3 £ BICB #*C<CDB_STS_M_FORK PEND! - Reset all but needed bits 
8 7 CDB_STS-M_TIMER!CDB_STS_M PowER!~ 
8 7 CDB_STS_ a- _FUNC>, CDB_ “B_ STSTR4 
. ENBINT 3 . to fork level 
: Release the receive and transm uffer map registers 
3 1 Rel h j dt it buff ist 
57 D4 7 § CLARL R7 Init slot number 
7314 ASSUME CDB_L_RCVMAP+<4*MAX_C Rci> EQ CBB _L_XMTMAP 
29 1c AG OO f 5 MOVAB CDB-L-RCVMAP(R4) ,R6O™ ; Get address of neeots slots 
5 24 AS D 4 $ 20$: VL UCBSL-CRB(RS) ; Get CRB addres 
7 ASSUME VECSUCRAPREGS? EQ EQ VECSB_NUMREG 
7 8 ASSUME VECSB-NUMREG+1 EQ VECS$B-DATAPA 
34 AS 886 +4 7 OVL (R6)+, CRBSL_ INTD+VECSW “PAPREG(RS) Set mapping information 
8 1 7 9 BLSS 30$ cif none allocated 
37 A 3 7 TSTB chest. INTD+VECSB_ DATAPATRS) Is there a datapath? 
ae ; f § BEQ 5$ 3 i} not - don't do purge or release 
4 7324 
4 7325 
4 7 § 
4 7 
4 7328 


Rorofnonononsnonny 


; Loop if more map registers 
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4 9 : 
r ie ; Release the PCBB map registers 
53 26 Aa5 D0 24 MOVL UCBSL_CRB(RS) ,R3 Leet CRB address | 
4 7 ASSUME VECSW- _MAPREG+ HH vVECSB MREG 
4 4 4 ASSUME VEC C$B S_NUARE GS! Q@ VECSB_ DATAPATH 
mse AS C6 DO 2426 5 MOVL Bates : ay map info in CRB 
42A 7 § nat C. ThiDevecsu. *MAPREG(R 3 
13 260C 7 BEQL 50$ : Br if none 
00BC a D4 24 7338 CLAL CDB_L_PCBBMAP(R4) ; No more mapping info 
? 7 44 sos RELMPR ; Release the map register 
2 , a} ; Deallocate all receive buffers and complete all 1/0 request packets 
80 8F BA 2438 7 rk B1CB #CDB_STS_M_POWER,=- ; Clear the powerfailure bit (if it had 
025A C4 438 7344 COB_B_STS(R4) ; been set) at this time 
56 70 AG JE 26 7345 MOVAB CDB-Q- etittwie R6 ; Get address of first queue Listhead 
57 07 3€ 2442 7 *g MOVZWL #CDB_C_Q $,R7_ 3; Get number of ueues 
53 00686 OF 44 7347 60$: REMQUE acROT RS. H + a next IRP/BUFFER 
61 1D 2449 7348 BVS ; Br if none 
OA OAAS 91 448 7349 CMPB RPSB_TYPE(R3) ,S*#DYNSC_ irP ; Is this an IRP? | 
OA 13 2464F 7350 BEQ Br if yes 
18 OA A3 91 24651 7351 CMPB RPSB_TYPE(R3) , S*#DYNSC wtx8 Is this a CXB? | 
08 13 24655 7 26 BEQ $ rif yes 
rh 4 27 BUG_CHECK NOBUFPCKT,FATAL 3 > Else, fatal error 
458 7385 3 IRP 
458 7356 ; 
6C 10 2658 7357 70s BSBB  —Ss IRP_ABORTED ; Abort the IRP 
E6 11 24650 7358 BRB 60$ : Try for more 
45F 7359 ; 
45f 7360 : CxB | 
45F 7361; 
45 7 6¢ Bos: SDISPATCH CXB$B_XE_FUNC(R3), TYPE=B,- 
45F 736 3 function action 
4SF 7364 
45F 7365 <XE -fC.V _XMIT 100$>,- ; XMIT request 
4SF 7 66 <KXE-FC"V~RECV 140$>,- ; RECV request 
4SF 736 > 
468 7 $8 
aar $° BUG_CHECK NOBUFPCKT,FATAL 3; Fatal error - not a valid IRP | 
46C 7371; | 
ree) 4 ie 3; CXB - XMIT request 
My } 
50 24 A3 09 46¢ 7374 100$:  MOVL riBe- T_IRP(R3) ,RO : Get IPP address | 
y) 4 7375 BEQL :; Br if none, return buffer 
53 8 it 472 7 1 MOVL ; Copy ~' eedress 
10 2475 737 BoaB PRee R ABORTED ; Abort the IRP 
CC 11 2477 7 4 BRB 60$~ ; Try for more 
479 737 : 
479 f 0 : FFI CXB transmit to complete 
51 18 a3 af 479 7 ¢ 110$: MOVZWL CxBSW _BOFF(R3),R1 : Get offset to start of data | 
51 § 470 7 AD ; Compute start = _tthernet header 
51 OC Al ‘ $8? 7384 MOVZWL XBUF_W TYPE(R1),R1 3; Get protocol t 
0c78 484 7385 BSBW MATCA_PROTYP 3 Find the pel «| type 
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sets" 


17 29 E9 § BLBC RO, 1408 ; Br if no UCB, drop buffer 
4 OD PUSHL RG ; Save CDB addre 
54 0178 CS OD 8 MOVL Bel. ME_FFICRS) RG ; Get FFI block "oddrese 
1 d if BEQ $ ; Br if not there, drop buffer 
50 C 7 49 0 MOVZWL #SS$_A ; Else, set return status 
14 B4 : 49 f 91 JSB arise. Ornit. RO ONE (RA) : Complete the XMIT in error 
4 BED 49 38 POPL RG 3; Restore cbB address 
A711 rh 44 if + 1208 BRB 60$ 3; Try for more 
rh 44 7 32 ‘ : No more UCB for CXB transmit request 
54 8ED0 ri PoPL RG ; Restore CDB address 
4A1 7399 ; 
4A1 pi80 3; CXB = RECV request 
tay pe09 | 
50 53 dO 24A1 rt08 140$: MOVL R3,R0 § beal buffer address 
00000000 ° GF 16 24A4 74046 JSB G*COMSDRVDEALMEM 3; Dea i the buffer 
99 ~=«O«11 cae eebe BRB 60$ 3; Try for more 
tar 7407 : Loop to next queue 
56 98 C9 4AC 7409 150$: ADDL #8,R6 ; Skip to next queue Listhead 
93 5 F ry! gy SOBGTR R7.60$ ; Loop if more queues 
re mig : Cleanup all I/0 on all UNITS 
55 00C8 C4 00 4B2 7414 MOVL CDB_L_UCBO(R4) ,R5 ; Get UNIT #0 UCB address 
1 4B7 7415 BEQL os ; Br if not set yet 
55 304A 0 489 gis 170$: MOVL UCBSL_LINK(R5) ,R5 ; Get next unit's address 
05 1 4BD 741 BEQL 190$ ; Br if none 
0097 30 4BF 7418 BSBW SHUTDOWN ; Shutdown the UNIT 
F5 #11 «24C2 7419 BRB 3; Check if more UNIT's 
OOE8 8F BA 24C4 ps0 190$: POPR #*M<R3,R5,R6,R7> ; Restore registers 
05 24C8 7421 RSB ; Return to caller 
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| 
E | 
-SBTTL IRP_ABORTED = Abort an IRP on one of the COB queues | 

IRP_ ABORTED = Abort CDB IRP 
| 

Functional description: | 
The 1/0 is aborted according $2, is eee 3f of operation requested. for 
initialization requests, the S$ returned except when the 
function was a self-test with + TRANSCEIVER DISCONNECTED, then the 


ss aH oe SS8_h MEDOFL. For all other 1/0 requests, the erreur returned 
5 


R4 = COB address 
sutpute? 


RELL LEER EE EE EES 


SAIN eee eee een ene 


4 
4 
4 
4 
4 
4 
4 
4C9 
: 9 
f9 
tt3 
4 Inputs: 
4C9 R3 = IRP address 
4C9 
409 
4C9 
4C9 4 R4 is pe 
4C9 4 RO,R1,R2, oRS RS RE” are destroyed. 
ito p4c$ * 
4C9 44 IRP_ABORTED: ort a CDB IRP 
409 7445 SDISPATCH IRP$B_XE _FUNC(R35, tYPESB.- 
? 2 rt <- i function action 
4C9 448 <XE_FC_V_LDMEM 10$>,- ; Load DEUNA/DELUA memory 
409 744 <XE“FC"VRDMEM 10$>,- ; Read DEUNA/DELUA memory 
409 7450 <XE_FC_V_INIT st te ; Start request 
409 7451 <XE_FC_V_TESTD 0$>,- ; Self-test done 
4c9 128 <KXE_FC_V_RESTART 40$>,- ; Automatic restert 
409 745 <XE_FC_V_LDRING 40$>,- ; Load ring pointe 
409 7454 <XE_FC_V_RDDPA  40$>,- ; Read default t physical address 
4C9 7455 <XE_FC_V_WTPHYAD 40$>,- ; Write ph sice address 
4¢9 $38 <XE_FC_V_WTMULTI 40$>,- ; Write multicast address 
409 745 <XE_FC_V_WTMODE 40$>,- ; Write DEUNA/DELUA mode 
re} $38 ‘ <XETFC"VISTART  40$>,- ; Start XMIT/RECV process 
14 «611 ore met BRB 208 ; ALL others 
$00 re ; For the Load/Read DEUNA/DELUA memory, we must release the MAP registers. 
55 00C8 C4 00 200 7464 10$:  MOVL  CDB_L_UCBO(R4) RS ; Get address of UCB unit #0 
5224 AS (DO 8303 7465 MOVL UCBSLICRB(RS) ,R2 ; Get CRB address 
258 ots, : The read memory and load memory functions do not use the buffered | 
444 eee 3 data paths, therefore no purge or release is necessary. 
509 5096 ASSUME vecey -MAPREG+2 EQ VECSB_NUMREG 
509 7471 ASSUME ee 3° VECS$B_DATAPATH 
CAS DO 2509 747 MOVL Pat Xt . aye a aep register data 
4 A2 20¢ 747 eRe . ERtDeveCsi. "MAPREG(R 
5 f 7474 RELMPR ; Release” mae registers 
FAl 30 251 7475 20%: BSBW ABORT PRT ; ABORT t /O request 
2 11 aif per BRB 60$ ; Leave | 
PY 
19 7478 ; Self-test failure codes go here 
313. $258 ; . | 
| 
| 
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¥0e- 000 IRP_ABORTED = Abort an IRP on one of the "gc “SEP-1984 t 80; 18; 34 YORIVER. SRCIXEDRIVER.MAR; 1 . 
Of E1 19 74 9 30$: BBC exe E.PCSRI XPWR,- ; Br if the XCVR power is okay 
0D 1 1B 7% BL _FR3t tR4) 408 ; etgmst, be broken DEUNA/DELUA 
50 O1A ar 3¢ 1 4 ¢ MOVZWL pees REDO turn the correct indicator 
4 SETeit gxnee "Sts Oise, CDB_L -DEVBEBENDRGS ; Save Internal error reason 
eS v7 : " 2, BRB 50$ 3; Complete the request 
3 : f4 gi : ALL failures during intialization go here 
50 0054 8F 3 5 8 £6 8 bos: MOVZWL #sss CTRLERR,RO turn broken hardware 
0004 C46 13 AG 5 489 50$: on eR +3(R4), CDB_L -DEVDEBEND RE) na: self-test status code 
FOFE 30 25 3 7490 BSBW [0 OR 3; Complete the request 
0S 25 7491 608: RSB 3; Return to caller 


( 


161 
64) 


XEDRIVER = VAX/VMS DEUNA/DELUA Driver 16-SEP-1984 00:32: AX/VMS Macro v04-00 Page 16 
yon O08 SHUTDOWN = SHUT DOWN UNIT eee 90:76:38 DRIVER. SRCIXEDRIVER.MAR; 1 . 8) 
A 7493 ~SBTTL SHUTDOWN = SHUT DOWN UNIT 
r Pee a »SBTTL SHUTDOWN_PROTYP = SHUT DOWN PROTOCOL TYPE 
A 7696 SHUTDOWN = SHUT DOWN UNIT | 
2 rh 4 ; SHUTDOWN_PROTYP = SHUT DOWN PROTOCOL TYPE 
A 198 : Functional description: 
; A 73 ? : This routine is used to shut down the XE unit as a result of a 
A 75 ¢ 3 SETMODE and SHUTDOWN. The action is to abort all I/0 for the unit 
5 : 7 ? 3 and then to clean up the unit data base. | 
rn , 5 : Inputs: 
53a 75 : : R3 = IRP address (SHUTDOWN_PROTYP entry only) 
53A 7508 ; R4 = COB address 
: 4 £208 3 RS = UCB address 
3 A 7311 : IPL = FIPL 
a3h 7318 : Outputs: 
; . P3i2 : R3-R5 are preserved 
3 A 7317 : RO-R2 are destroyed. 
53A f318 SHUTDOWN_PROTYP:: : Shut down protocol type 
06 «1 33h 7520 Bec FUCBSV ONL INE - ; Br if not online 
19 64 AS 53c 7521 UCBSW~STS(R5) ,10$ ; 
ag 75 § ASSUME UCBSV_ZE INITED EQ O 
15 68 AS €9 253F 75 BLBC UCBSW-DEVSTS(R5),10$ : Br if not inited 
03 €1 2543 7524 BBC #UCBS0_XE_ SHARE ,- ; Br if not a shared UCB 
11 68 AS 345 ie 5 UCBS$W~DEVSTS(R5) SHUTDOWN ; shutdown entire unit 
$48 g ; : Try to find SHR data structure 
E0E2 30 2548 7529 ° BSBW  MATCH_SHR ; Check PID and CHAN 
0B 12 ‘3 ie) ? BNEQ 10$ ; Br if NO MATCH, skip it 
rt 73 § : Match found - clear inited bit and clean up all 1/0 on SHR data structure 
56 DD 2540 «7534 ° PUSHL R6 : Save R6 
56 =—51 4 54F 7535 MOVL R1,R6 ; Copy SHR address 
0296 2 7 § BSBW CLEANUP_SHR ; Cleanup the SHR data structure 
56 BED 7 POPL BR 3; Restore R6 
0 : g 3 10$: RSB ; Return to caller 
$33 $820 snutpoun: ; Shut down unit | 
04 €1 2559 £36) BBC oucesy ONLINE ,- 
04 64 AS 33 4 4g ucB W_STS(RS) ,5$ : If BC not online 
3 tz ASSUME UCBSV_XE_INITED FQ 0 | 
01 68 AS 58 2 7545 BLBS UCBSW-DEVSTS(R5) ,10$ ; Br if UCB is inited 
; f r* 5$: RSB : It's not time to shut down, yet 
63 7548 ; 
56 ere 3; If a power failure occurred, and the protocol has both initialized the FFI | 
| 
| 


N 10 | 
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! 
$ 3; interface and supp\ ied an asynchronous error routine, then cali back 
; the protece! at this routine address with a status value indicating that 
? 3 @ power failure had taken place. 
2 
07 ~«#€1 4 5 10$ BBC #COB_STS_V rouge - :; Skip notification if power failure 
19 025A C4 65 7 : CDB_B_STS(R4) 208 : did not occur 
4 OD 69 7 PUSHL 4 ; Save CDB address 
54 0178 2 9 4 28 MOVL BSL_XE_FFICRS) ,R4 ; Retrieve FFI address 
7 5 BEQL : Nothing to do if there isn't one 
52 1C AG 0 72 7560 MOVL FFISL_ERROR(R4) ,R2 3; Retrieve asynch error routine address 
g? } 7 £29) BEQL 3; Nothing to do if there isn't one 
50 0364 8F C 7? § MOVZWL 1} eeteaeiiaiaad :; Indicate that a powerfailure occurred 
2. 16 7D £30 JSB (R2) : Call back the asynch error routine 
D : POPL R ; Restore COB address 
4 8ED0 14 1385 15$ 4 B add 
5 7566 ; 
f Fees 3; Start a 3-second timer to restart any UNIT needing automatic restart. 
: £208 3; This restart timer only runs if the device was halted due to a fatal error. 
Ay $358 3; Note, that the UCB multicast address list is purged which will nul tity 
582 7571 ; any restart operation that may be performed by the DEUNA/DELUA driver itself 
23 Pale 3 (only if the user has specified any multicast addresses). | 
582 7574 ° 
00c8 8F BB 28 7575 20$:  PUSHR #*M<R3,R6,R7> : Save registers 
OF  €1 5 £278 BBC #UCBSV_XE_RESTART,=- : Br if this UNIT does not need 
43 68 AS 588 757 UCB$W_BDEVSTS(R5),22$ =; automatic restart 
588 7578 ASSUME IRPSC“LENGTH GE fQESC_LENGTH 
51 §4 8F 9A 2588 1379 MOVZBL #IRPSC_LENGTH+TQESC_LENGTH,R1 ; Get size of IRP/TQE 
00000000'GF 16 258F 7580 JSB G“EXESALONONPAGED : fry to allocate a IRP/TQE 
36 50 «6 ED: «2595 7581 BLBC : Br if failure = too bad 
398 1386 ASSUME IRP$Q_ STATION GT TQESC_LENGTH 
4000 8F <A8B 259 o38 BISW #UCBSA_XE_INTERLOCK,=- ~ ; Interlock the RESTART operation 
68 AS aoe Peee UCBSW_BEVSTS(R5) 3 
59E es} ASSUME TQESB_TYPE EQ TOQESW_SIZE+2 
59E P38 ASSUME TQESB-RQTYPE EQ TOESB TYPE+1 
seereers of dO Hi rege MOVL PecOvWat OER IO> i <IAPEC LENGTHS TOESC LENGTH>>,=- ; Set STRUCTURE 
00c8 C2 4 dO i Le! the RS, TOESC_LENGTH+IRPSL_RBOFE(R2)_ Saye UCB address in IRP 
— 2 0 sae 7 38 OVL R2,R5 3 Copy TOE address 
00000000 01¢9C380 8F 7D 2581 759 VG = #RESTART_DELTA,~ ; Set the delta time 
AS 58B 7594 TQESQ DECTACRSS : 
53 C74 CF 43 288 7595 MOVAB W*RESTART_ROUT,R3 : Get address of RESTART routine 
01 5c2 7 36 Vv #TQESC_SSSNGL,=- 3; Set the request type 
2c AS 3C4 759 TOESL_RQPID(R5) ; 
EcF8 30 43 7 38 BSBwW FORK_TIMER 3 FORK to startup the timer 
af 759 POPQ RG ; Restore R4, R 
0s 11 ate 6 ? BRB 238 3; Continue | 
CE 76 ¢ 228: CLRBIT #UCBSV_XE_RESTART,- ; Restart is not possible! 
ff 7 UCBSW"-DEVSTS(RS) 
0002 CS) 34BC 8F- B0 D5 7604 23$: MOVW #INIT_C_QUOTA yieey XE_HBQ(R5) ; Reset hardware buffer quota 
64 A523 AA g8DA 7605 BICW © #UCBSA_TNT'UCBSM_ PODERT~ | 
DE 7606 UCBSM_TIM,UCB$W_STS(R5) ; Reset device status | 
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XEDRIVER VAX/VMS DEUNA ve -SEP-1984 AX/VMS Macro v04-00 P 164 XEDI 
reat SHUTDOWN. P ROTYP = SHUT DOWN PROTOCOL TYP g-SEF 19 382 88: 6; 34 DRIVER. SRCIXEDRIVER.MAR; 1 oe (65) yOu: 
68 AS 11 AA D g 7 BICW #UCBSM_XE_INITED!- No Longer inited 
E 8 UCBSM-XE-RUN, UCBSW_DEVSTS(RS) ;-..0r running 
. 6 CLRBIT #xNisv "STSTACTIVE .UCBSL .DEVDEPEND (RS) Clear active bit 
05 00c4 c46 «=610)—=SOE1S S5E? «7610 #XMSVERR-FATAL tb DB L_BEVDEPEND (R4) vais Br if not FATAL | 
; fei) ; SETBIT aXMSV- “ERR. FATAL, *UCBSL~ _DEVDEPEND(R5) S Else, tabieote FATAL 
i 7ei8 : Reset UCB multicast address List 
0224 C4 é 2} f Pei? bss; cork R3¢ COB_L_PRMUSER(R4) § 4° yd — the PROMISCUOUS user? 
; Br 
0224 C4 D4 F9 re19 CLRL COB_L_PRMUSER(R4) Else, clear the PROMISCUOUS user addr 
FD 618 CLRBIT #PB “OD V PROM, CDB_W Move (Rs); : Reset from promiscuous mode 
0146 30 260 1 BSBW BLD BS ; Build an IRP to RESET hardware mode 
OF €0 986 7620 278: BBS #UCBSV_XE_RESTART ; Br if this UNIT is restarting 
14 68 AS 608 £6 1 snes UcBsu. BEVSTS(RS) 388 =: don't t clear multicast List 
: Save 
eye! C5 694 260E 76 : CLRB ucese XE PATS : No more multicast addresses 
00 O0F9 C 2C 2612 7624 MOVCS ,UCB$G_XE_MULTI(R5),#0,- aif? the structure 
OOE9 C5 618 7625 FOEMAXLC “ALT” UcesG. XE Mult 1éR 
eit fe F POPQ R4 Restore R4, RS 
ei o 8 3 ; Reset CDB multicast address list, Flush all attention ASTs. 
04AB 30 S61F 7680 588:  BSBW ADD_MULTI ; Re-calculate multicast address List 
54 DD 622 ros) PUSHL R : Save CDB addre 
57 ooco cS 9 624 76 ¢ 30$: MOVAB UCBSL_XE_AST(R5),R7 ; Get address of Ast Listhead 
50 67 OD 629 76 MOVL (R7) ,RO : Anything in List? | 
7 Lo 62C 7634 BEQL ; Br if not 
56 2 AO $¢ 6 3 7635 MOVZWL ACBSL_KAST+10(RO) ,R6 : Force channel match | 
52 4 Ad C 26 7636 MOVZWL ACBSL-KAST+12(RO) ,R2 ; Get process index 
54 00000000'GF 00 2636 7637 MOVL  G*SCHSGL_PCBVEC,R4 : Get PCB address vector address | 
54 6442 D0 2630 7638 MOVL ratty: TR ; Get PCB address 
ee S + ot} £073 he G" CONSFLUSHATTNS : Flush AST 
BP 8EDO ot? pee) 40S: POPL RG ; Restore CDB address 
g4¢ recs ; Complete all RCV IRPs for this unit 
64C 7645 : ASSUME UCBSC_XE_QUEUES-1 —Q 3 ; one ’ 1 for shared users 
53 O0A8 ¥: oF 34 £066 45$: ao. & @UCBSO_XE_RCVREQ(R5),R3 ; ze tf 
; Br none 
F8DE 30 $37 7648 BSBW ABORT. PKT ; Abort the 1/0 request 
F4 11 7649 BRB ; Get next IRP 
é3 7631 : Complete all XMIT CXBs for this unit 
53 0080 Be 4 o28 7658 bos: peneue ? c8$0_ XE_XMTREQ(R5) ,R3 ; get = 
: Br none 
50 24 ‘3 0 $0 7685 MOVL 5 T_IRP(R3) ,RO : Get IRP address | 
+ oe 66 6 § BNEQ ; Br if present 
54 DD 2665 76 PUSH ; Save CDB addre 
54 9176 H 0 266 76 8 MOVL UCBSL XE_FFICRS) ,R4 ; Get FFI Neo ty sadrees 
C Be ee fe MOVZWL #SS$_ABORT,RO : Set ptetus return 
14 B4 6 660 JSB @FFISL_XMIf_DONE(R4) =; Conpl ete CXB 
4 BED 6 766 POPL Hi ; Restore a 3 address 
eu 3 of £006 BRB 50$ ; Get next CXB 
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= SHUTDOWN_PROTYP = SHUT DOWN PROTOCOL TYP -SEP-1984 319: DRIVER. SRCIXEDRIVER.MAR; 1 (65) 
¢ 
a 677 7664 548: MOVL RO,R3 : Copy IRP address 
Fay % ern é 5 BSBW ABORT _PKT 3 Abort the 1/0 request 
d9 44 ? § BRB 50$ 3; Get next CXB | 
grr Pegs ; Deallocate all receive CXBs 
52 O0A0 05 OF 267F 355 55s: REMQUE 9 eect attebein tbat ene ; Get message buffer 
24 10 2684 7671 BV ; Br if none 
is »~ 3 Restore quota 
42 AS Ad 6 767 ADDW UCB$W_DEVBUFSIZ(R5) R 
o00cs ¢5 6 ? 673 UCBSW-XE_QUOTA(RS) : 
68C 7675 ; The buffer may be smaller than the normal message size, if this | 
68C £o7g : is a cloned buffer for the promiscuous user. Therefore, we must 
68C 7677 ; check to make sure the buffer is large enough to be returned 
: pore 3 the the device's receive buffer pool. 
Al 268C reg ADDW3 #CXBSC_HEADER+- ; Calculate size of ‘'normal"’ | 
68D 7681 CXBSC_TRAILER,- 3; receive buffer 
50 0088 C4 004C 8F 68D pees COB_W_BSZ(R4) ,RO 3 
08 A2 50 8} 694 76 CMPW RO, CXB$w_SIZE(R2) ; Can buffer be returned? 
05 2 2698 7684 BNEQ 60$ ; Br if not, delete buffer instead 
ED12 30 269A NH BSBW ADDRCVLIST ; Try to add to receiver List | 
B9 =i 844 7O86 BRB 50$ ; Loop for more 
50 52 D0 269F pose 60S: MOVL R2,RO ; Copy buffer address for deallocation 
00000000 ' GF 16 26A 7689 JSB Gr COMSDRVDEALMEN ; Deallocate the buffer 
AE 11 reoy BRB 0$ ; Loop for more 
7 £69 3; Cleanup all SHR structures if fatal error | 
03 £1 26AA 7694 70$: BBC #UCBSV_XE SHARE - : Br if not a SHARED UCB 
30 68 AS 6AC 7695 UCBSW_BEVSTS(R5S,100$ | 
56 00c4 C5 00 AF 7696 MOVL CBSL-XE_DEFUSR(R5) RO; Get default SHR structure address 
ors 30 2686 7698 BSBW CLEANUP_S : Else, cleanup the structure 
10 €1 2689 7699 BBC #XMSV_ERR_FATAL,- : Br if not a fatal error 
03 44 AS 68B 7700 UCBSL_DEVBEPEND(R5) ,90$ 
g179 30 26BE aay BSBW DELETE SH ; And delete the structure 
56 0098 CS) =O 26C1 = 77 ; 90$: MOVL UCBSQ_RE_SHARE(RS),R6 ; Get address of next LIMITED user 
0098 ¢5 «= 56S is 266770 CMPL R6,UCBSQ-XE_SHARE(R5)  ; End of List? 
45 13 ¢6CB oree BEQL 12 ; Br if yes, don't restore quota (yet) 
0118 30 26CD 7705 BSBW CLEANUP_SHR : Cleanup the 1/0 
1 E1 2600 77 $ BBC #XMSV_ERR_FATAL,- ; Br if not a fatal error | 
EC 44 A 602 77 ucBst DEVBEPEND (RS) ,90$ 
OF EO 26D 7708 BBS #UCBST_XE_RESTART,- ; Br if this UNIT is re-starting 
E7 68 AS 6D? 7709 UCB$W_DEVSTS(RS) ,90$ | 
015C 30 26DA 7710 BSBW peLe E_SHR : Else, delete the structure | 
E211 6D gab BRB 90 ; Look for more | 
6DF Mab : Restore quota | 
EO 26DF pie 1008: BBS #UCBSV_XE_RESTART,- ; Br if this UNIT is re-starting 
5A 68 AS 661 at UCBSW_DEVSTS(RS) , [408 
50 o0e8 C 3 6E4 771 MOVZWL UCBSL-XE_PID(R5) ,RO ; Get PID of last starter | 
51 0099 000'GF D0 2669 i718 MOVL Go SCHSGL PCBVEC RI : Address PCB vector | 
v: D 6FO 771 MOVL (R1)CROJ,R ; Get PCB of owner 
60 AO D1 26F4 7720 CMPL = PCBSL_P16(RO),- 
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71 
71 
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0 
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D0 2736 
16 2739 
BEDO 2738 
73€ 
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97 ore 
12 274 
30 2744 
BA 2747 
05 2748 
274C 


~$P-1984 00:19:23 
VEBSL_XE_PID(RS) ; Still there? 


; If 
PCBSL =f 0 (80) RO 


; If N 
: Get JIB address 
mov WL Riesek OTA(RS) ,R1 ; Convert to Longword 
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asc” Byic OENT ROS ; Return, byte igount quota 
ADDL m1, 1Btt-8 aie ) .-and byte 


BYT mit quota 
W_XE_QUOTA(RS) 


; Prevent this from being 
3; returned again 


Delete the STARTUP IRP for point-to-point mode 


NA 

YP 

4 

é 

8 

Q | : 

: 120$:  MOVL vCBSL_ XE_STIRP(R5),RO ;% Get the startup IRP address 
BEQL 3% Br if none 

4 CLRL UCBSL_XE_STIRP(RS) 7% ALL done 

5 JSB G*COMSDRUDEALMEM 3% Deallocate the IRP 

§ : If nt is an FFI block and the SHUT_DONE routine is set, then 

3 3 notify the FFI user that shutdown is flow complete. 

40 CBSL_XE_FFIC(RS),RO 

4) 0$ ~ 

4s BSL_XE_FFICRS) 

4 I$L_ -tfor FONE (ROD, R1 

44 0$ ~ 

o2 

t9 

48 

49 ; 

50 ; 

3 j 

33 

54 

55 

56 

57 


Get FFI block address 

Br if none 

Cleanup FFI interface 

Get address of routine 
Br if none 

Save CDB address 

Copy FFI block address 


BeNOS 


back FFI user 
Restore CDB address 


Decrement UNIT count on CDB and cleanup CDB if last unit 
DECB 
BN 


EQ 
BSBW 
150$: POPR 
RSB 


COB_B_UNTCNT(R4) One less unit on CDB 
1508 ~ Br if more 
SHUTD WN UNA 


#°M<R3,R6,R7> Restore registers 


Return to caller 


MAR; 1 


Else, shutdown entire DEUNA/DELUA 


roe 18 


~ 
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pet an IRP to reset pro Beate 1 $8: 76:38 DRIVER. SRCJXEDRIVER.MAR; 1 . (66) | v4 


— 
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-SBTTL BLD_STOP_IRP = Build an IRP to reset promiscuous mode 
; BLD_STOP_IRP = Build an IRP to reset the promiscuous mode 
; Functional description: 


: This routine will allocate and build an IRP to reset the hardware mode 
3 from promiscous. 


VMS DE 
# _IRP 
<74C 7759 
74C 7760 
74C «7761 
74C 166 
74C £00 
74C «7764 
ste bbe 
ste p9e9 
74C ree ; : 
74C ore : R4 = COB address 
74C (77 0; ; RS = UCB address 
74C «(7771 
74C 278 ; Outputs: 
ee ore? 3 RO,R1,R2,R3 are destroyed. 
oe ore? BLD_STOP_IRP: ; Build an IRP to reset hardware mode 
74¢ 58 3; NOTE = we must use EXESALONONPAGED to allocate the IRP because the other 
ee gr7e $ routines reset the IPL to ASTDEL. 
10 EO 274C ree BBS conor _ERR_FATA ; Br if fatal error, 
OE 00C4 C4 74E 7781 Batre “DE VDEPEND(R4),108 ; ignore reset of mode 
00C4 BF 3C 2752 77 ; MOVZWL Ht RP oR : Se Length of IRP 
00000000'GF 16 2757 77 JSB G“EXERLONONPAGED : Try to allocate an IRP 
01 50 f 75D 7784 BLBS ; Okay if buffer allocated 
5 rey of 5 108: RSB : Else, too bad if we can't do it 
08 A2 51 £4=BO0 2761 77 § 20$: MOVW R1,1RP$W_SIZE(R2) : ALT in the size field 
6 10 2765 7788 BSBB BLD Ry ld a template IRP 
OC Ad 71° AF 9E 767 7789 MOVAB B*DELETE_BLOCK, IRPSL PIDIR ) Store return address from IOPOST 
21 A3 09 90 ree 7790 MOVB #XE_FC_V “STOP, iRPSB_ RE FUNC (RS) ; Make this look Like a STOP 
05 ory 444 RSB ; Return to queue request to DEUNA/DELUA 
771 98 DELETE_BLOCK: ; Deallocate a data structure 
50 55 D0 2771 7794 MOVL R5,RO : Get address of structure 
00000000 ' GF 17 ore aad JMP G*COMSDRVDEALMEM ; Deallocate the structure 
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vet BLD TRY IRP "btla 6 os ate Feast st ade 88:99:34 DRIVER. SRCJXEDRIVER.MAR; 1 
77A P38 -SBTTL BLD_STRT_IRP = Build a point-to-point startup IRP 
at e9 : BLD_STRT_IRP = Build a point-to-point startup IRP 
A : 
ora f gi 3 Functional description: 
aN 7804 This routine will build an IRP to perform a datalink startup with a 
gra 4 é 3; remote system. 
: ts 
ae, ; 08 : tat R2 = IRP address 
77A f 9 : R4 = COB address 
at f 19 3 3 R5 = UCB address 
: Outputs: 
SR : 18 ; — RO,R1,R2,R3 are destroyed. 
aN ; 13 LD. STRT_IRP: ;% Build a startup IRP 
77A «781 
; h k part of the IRP to build the data message. The 
ah it : inex aseleas Gain aaeknue the standard header plus one byte of “XAA. 
77A 781 
. RPS$C_LENGTH ;% 14 bytes of header + 
at rs Y ASSUME IRPSC_XE_STD+17 LE I ‘ : 12 bytes of by Seukk & hee Gaeta 
P 5 u e 
52 60 is oe pe 5 g SSuaB ts ae STD(R3),R2 7% Point to dota portion of IRP 
oocc cS) = —s 7D_sSs 2780 if 4 va ta a 5d ee it Store destination address 
OC A2. 0660 ge BO rR if 3 MOVW td C_STPRO, XBUF W_TYPE(R2) 3% Store protocol type 
OE A2 01 B80 2788 7 $ MOVW #1, XB0F w_SIZE(R2) 3% Store message size 
GR TRE Ga Sickie vie ene LE iegtedh ok ge] arteyot te 
ae ea 138 if 5 3388 8 : AUCBSVHE~STACK -UCBSMCDEVST S(R5),90$ ;:% Exit if not s° -k 
10 A2 AB BF «90:s« 2799-7831 °° MOVB #*XAB,RBUF_W SIZE+2(R2) :% Transmit one stack byte of ta 
oc Ag B7'AF 9E 279E 7 50$ MOVAB 86*°90$,1RPSC_PID(R3) 3% Ai ier return address 
21 A3 O07 90 27A rea OvB #XE_FC_V_XMIT, IRP$B_XE_FUNC(R3) ;% Set function request 
7A? 7834 ASSUME XBUF C"HEADER £Q XBOF_Q_SIZE 
11 BO 27A7 7835 TRPSUCBENT ORD) } Set data size 
3¢ ase $3 D0 aN : $ MOVL IRP$L_XE_SYSBUF(R3) :% Set buffer address 
0080 D4 28 3 7AF 7838 INSQUE CHS) cba Scaminease (RA :t apes tly bweeet He ope 
vy Bs 7ai0 90$: Beet ? . 7% Return to caller 
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= VAX/VMS DE 
yO -000" BLD_IRP = Build an IRP routine P=1984 DRIVER.S SXED RIVER.MAR;1 
-SBTTL BLD_IRP = Build an IRP routine 
re és re Sette BLD_IRP_CO = Build an IRP correutine 
73 46 ; BLD_IRP = Build an IRP routine 
i f r ; BLD[IRP_CO = Build an IRP co-routine 
£8 a3 : Functional description: 
: Thi tine will build a simple IRP and allow the caller to fill in the 
78 f 50 ; function requested and then queue it to the DEUNA/DELUA. 
: t 
iB f ef $ — ® = IRP address 
fe g 28 3 = UCB address 
788 7 28 : Outputs: 
788 7859 ; RO-R3 are destroyed. 
fe 4 $ ; R4,R5 are preserved. 
: ; Build an IRP 
Ge 66 8 : $8 Gup_inp MOVAQ MS ae co 8 ; Save IRP address, skip to size field 
4 RPSW 
rb AE SEINE TESTU Ff favay suze 
7BB 786 ASSUME IRP$B_RMOD EQ IRPSB-TYPE+1 
82 65 278B 7 89 STW (R2)+ ; sk kip SIZE 
OA B60 2780 7868 VW #DYNSC_IRP,(R2)+ Make it look Like an IRP 
700 7869 ASSUME IRPSL.PID 0 IRPSB_RMOD+i 
7C 7870 ASSUME IRPSL_AST EQ IRPSL_PID+4 
o2 Te ert rere LRQ (R2)+ Clear PID, AST 
7C2 (787 ASSUME IRPSL_ASTPRM EQ IRP astes 
7C rere ASSUME IRPSL~ WIND EQ IRPSL SASTPRMS4 
82 7C 7C 7874 LRQ (R2)+" Clear ASTPRM, WIND 
7¢4 «7875 ASSUME IRPS$L_UCB EQ IRPSL_WIND+ +h 
55 00 27C4 787 VL R5,(R2)+ Store UCB address 
70? 7 4 ASSUME IRP$W_FUNC EQ IRPSL uce+d 
7C7 ~=~7878 ASSUME IRP$B_EFN EQ IRPS$W PUN se 
7C7 +=(7879 ASSUME IRPSB_PRI EQ | P$B-EFN+ 
7C7 ~=7880 ASSUME IRPS$L_IOSB EQ IRPSB_ ae 
82 7¢ ror 9 et LRQ (R2)+ ; Clear FUNC, EFN, PRI, IOSB 
709 «788 ASSUME IRPSW_CHAN EQ IRPSL 10SB+ 4 
709 7 i ASSUME IRPSW_STS EQ IRPSW CHAN+2 
709 7884 ASSUME IRPSL_SVAPTE EQ IRP$w STS+#2 
82 7¢ 7C9 «7885 LRQ (R2)+ Clear CHAN, STS, SVAPTE 
7(B 7 ASSUME IRP$W_BOFF EQ RPSL us 
7cB 7 § ASSUME IRPSWBCNT EQ IRPSW_BOFF 
7cB 7 ASSUME IRPSL_BCNT EQ IRPSW 
82 7C 7cB 7 } LRQ (R2)+ ; Clear BOFF, BCNT 
05 rep 4 3 RSB : Return to caller 
CE 
92 BLD_IRP_CO: : Build an IRP = co-routine call 
eB 10 rk $8 a “BSBB BLD_IRP ; First, build the IRP 
2 f 99 ; On return to caller 
7D f 3 ; R3 = IRP address 
9E 16 D 7 3 jSB a(SP)+ 3; Return to caller 
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v04- BLD_IRP_CO = Build an IRP ce>reut ine -SEP-1984 00:19:2 DRIVER. SRCIXEDRIVER.MAR; 1 (68) | 
D 9 : 
7D i ° 3; After call back: 
70 f § ; R4 = COB address 
70 904 3 Re = UCB address 
3 -R2 may be destroye | 
gp fe 5 R2 be d d 
7D es 3 HSBINT UCBS$B_DIPL(RS) : Syne access to device 
0088 06 «463 )« «#(0E «02709 «79 : INSQUE (R3),3CDB_Q_INPUT+4(R4) ; Insert at END of queue 
TE roy PUSHQ R4 ; Save CDB, UCB addresses 
EcD8 30 27E1 7910 BSBW LOAD_PORT ; Load request and return to caller 
7E4 oats POPQ R4 ; Restore CDB, UCB addresses 
7E7 \¢ ENBINT 3 Re-enable interrupts 
A RSB ; Return to caller 
05 27EA 791 Ll 
7EB 7914 
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RO-R2 are destroyed. 
ALL other registers are preserved. 


LEANUP_SHR: : ; Cleanup all 1/0 on SHR structure 
PUSHL 


R3 3; Save R 
~I1F DOF POINT 

PUSHL R7 

A vf : Complete all waiting transmit IRPs 


1§ -SBTTL CLEANUP_SHR = CLEANUP ALL I/0 ON SHARE DATA STRUCTURE 
! om -SBTTL DELETE SHR = DELETE SHR DATA STRUCTURE 
i8 : CLEANUP_SHR = CLEANUP ALL I/0 ON SHARE DATA STRUCTURE 
79 , ; This routine aborts all read request in progress and return all message 
73 § : buffers back to the COB structure for re-use. 
924 : Inputs: 
795; 
79 § 3 R4 = COB address 
8 : R5 = UCB address 
9 8 : R6 = SHR address 
7929 ; 
7930 ; IPL = FIPL 
$33) } output 
3; Outputs: 
79 : ; : 
7934 ;: 
By 
79 $ ¢ 
79 3 
79 
7940 
7941 


3% Save R7 


7945 $$: MOVAB UCB$Q_XE_XMTREQ(R5),R7 ‘;% Get address of XMIT wait queue 
794 MOVL (R7),R3 3% Travel queue 

7947 5$: CMPL R3,R7 3% At end of queue? 

7948 BEQL 7% Br if yes 

7949 MOVL CXBSL_T_IRP(R3) ,RO :% Get IRP address 

7950 BEQL 6$ 3% Br if none, only one chan allowed 
7951 CMPW RP$SW_CHAN(RO),SHR_W_CHAN(R6) ;% Same as SHR chan? 
P836 BNEQ :% Br if not, else 

7953 6$: REMQUE (R3),R3 :% Remove IRP from List 
7954 BSBW = ABORT _PKT :% Abort the 1/0 request 
7955 BRB $ 3% Look for more 

£326 7$: MOVL (R3),R3 7% Travel Link 

795 BRB 5$ 3% Check for_end of queue 
7958 9$: POPL R7 3% Restore R 

O32 -ENDC 

ei ASSUME SHR_C_QUEUES EQ 2 

7968 3; Complete all IRPs for this structure 

7965 10$: § REMQUE QSHR_A_RCVREQ(R6) ,R3 ; Get IRP 

£308 BVS 208 ; Br if none 

79 BSBW 1 ; Abort the 1/0 request 
£30 BRB 10$ ; Get next IRP 

599 3; Deallocate all message blocks 


7972 508: REMQUE @SHR_Q_RCVMSG(RG6) ,R2 ; Get message buffer 


SPAS SBHB:SS WOAMEE BESRARIRR ay "9 


| 
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1p a 73 30$ ; Br if none 
te A A A 74 ADOW UCBSW_DEVBUFSIZ(R5),- ; Restore quota 
00c f 75 UCB$SQ_XE_QUOTA(RS) Hy 
—B7C 30 4 BSBW ADORCVCIST 3; Try to add to receiver List 
gf 1 af BRE 20$ 3 Loo 
3 BeBe 4 30$: POPL R ; Restore R3 
0 444 RSB ; Return to caller 
9 6 1 344 
2 3 § 3 DELETE_SHR = DELETE SHARE DATA STRUCTURE | 
$ Ss routine deallocates the SHR data structure to system pool. 
3 ; 4 Thi ine deall he SHR d l 
2 6 § 3 Inputs: 
9 79 3 : RS = UCB address 
> ad44 3 R6 = SHR address 
4 i444! $ IPL = FIPL | 
3; Outputs: 
i ii 
639 7995 ; RO-R1 are destroyed. 
8 : £338 3 ALL other registers are preserved. 
839 7998 DELETE_SHR:: ; Delete SHR data structure 
5c AS B7 $ 7999 DECW UCBSW_REFC(RS) 3 One less user of the unit 
o00c4 C5 $e } rf 944 or Rb UCBSL_XE_DEFUSR(RS) ; 4s sh's the default user? 
; Br es 
51 0098 is 3 43 69 § MOVAB UCB$Q_XE_SHARE(R5S),R1 3 Get edéress of SHARE queue 
- @ 8 848 800 MOVL (R1),RO 3; Get address of next in queue 
51 50 01 2848 904 10$:  CMPL  RO,RI : Back to front of List? 
4D = 13 4 05 BEQL 90$ ; Br if none found 
50 56 01 5 4 CMPL R6,RO : Is this the one? 
05 13 285 99 BEQL § ©=-_- 208 : Br if yes 
50 60 00 5 08 MOVL (RO) ,RO : Else, get next in queue 
a} oe 58 44 BRB 10$ 3; And try for match 
50 60 OF SA 10 20$: REMQUE (RO),RO 3; Remove structure from List 
06 ~=«i7 5D 11 BRB 40$ 3; And delete the structure 
00c4 C5 Be 5F \§ 30$: CLRL UCBSL_XE_DEFUSR(R5) ; No more default user 
50 OC A6 C $3 15 408: MOVZWiL SHR_L-PIB(R6),RO 3 Get PID SHR structure 
51 00000000'GF DO 286 14 MOVL G°SCHSGL _PCBVEC RI : Address PCB vector 
50 gig dO $ 15 MOVL (R1)CROJ,RO 3; Get PCB of owner 
g AO D1 18 CMPL PCBSL_PID(RO),- 
C A6 7 1 SHR_L_PID(R6) 3; Still there? 
18 7 Ht BNEQ 60$ 3; If NEQ no 
50 0080 C¢ g 79 «801 OVL PCBSL_JIB(RO) ,RO ; Get JIB address 
51 28 MG 7 g MOVZWL SHR _W7QUOTA(R6) ,R1 > Convert to longword 
30 A C ADDL = R1, JIBSL_BYTCNT (RO) ; Return byte count quota 
SA 1 ¢ § ADDL R1,JIBSL_BYTLM(RO) 3 ..and byte Limit quota 
bore C 1 A A SUBW R1,UCB$W_XE_QUOTA(RS) ; Decrease the current quota 
0175 ¢5 1 A F 4 SUBW R1,UCBSW_XE_TOTQUO(RS5) ; and the total quota 
0 .. & 4 5 60$: MOVL R6,R 3 Copy SHR structure address 
0 100 * GF 1 a § JMP G*COMSDRVDEALMEM 3; Deallocate the structure | 
9D 3 
9D ; ; Bug check on error 


vou-005" SeVPHCUMSRPEOMLDFEOS BPS38> srnucrune “ECEBISRS SULTGEES. YAKIYEE.SasSee¥O4GE, mani 99° (65) 


3835 034 $08: BUG_CHECK NOBUFPCKT, FATAL 


= VAX/VMS DE 
CANCEL = CAN 


Al 
Al 
Al 
Al 
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SEP=19 

‘ ~SBTTL CANCEL = CANCEL 1/0 ON UNIT 
CANCEL = CANCEL 1/0 ON UNIT 

Functional description: 

This routine is used to cancel specific or all I/0 pending on an XE unit. 


system service and so we will have to delete the SHR structure 
and decrement the reference count. Note that the reference count 
can never reach zero. Therefore, SYSSDASSGN will decrement the 
reference count on exit and we will be called opetn, This time 
there will be no match on the PID/CHAN and so the UCB will be 
cleaned up and deleted. 


UNA 
cE 
: 
039 ; 
a) 
Al 41 ; Inputs: 
Al 042 ; 
Al 43; R2 = Channel index number 
Al 44; R4 = PCB address (or zero) 
Al 45; RS = UCB address 
ny Re 3 R8 = Cancel reason code (CANSC_DASSGN or CANSC_CANCEL) 
Al Se $ 
Al 8049 ; IPL = FIPL 
8A1 8050 ; 
Al 8051 ; Outputs: 
Al 8052 ; 
8A1 8055 ; R3-R5 are preserved. 
8A1 8054 ; RO-R2 are destroyed. 
8A1 8055 ; 
8A1 8056 ;-- 
8A1 $02 
8A1 8058 CANCEL:: 3; Cancel 1/0 
0008 8F BB 28A1 805 PUSHR #*M<R3,R4,R6,R7> : Save registers 
03 €1 28A5 4 BBC #UCBSV_XE_SHARE,- ; Br if not a shared UCB 
17 68 A5 Baz 806 UCBSWIDEVSTS(R5).2$ =: perform regular SCANCEL 
~ ope : Try to find SHR data structure 
012A 30 28AA 806 BSBW FIND_SHR ; Check PID and CHAN 
12 12 ~ 4 BNEQ 2$ ; Br if NO MATCH, maybe last SDASSGN 
BAF 806 Match found - clear inited bit and clean up all 1/0 on SHR data 
~ sO structure. 
BAF 807 We will Delete the SHR structure if this is a S$DASSGN function 
8A fi request. We will get this function when called from SYSSDASSGN 
07 
07 
of 
7 
7 


See Ge Ge Se Ge Se Se Se Ge Ge Ge Se 


MO R1,R6 3; Copy SHR address 
MOVL  UCBSL_XE_CDB(RS) ,R4 : Get CDB address 
BSBW CLEANOP_SHR Cleanup the SHR data structure 


ASSUME CANSC_DASSGN EQ 1 
DECL R 


Deassign request? 

Br if no = all done 

Else, delete the SHR data stucture 
ong ae perform Like a NON-SHARED 
unit. 


10$ 
BSBW = DELETE_SHR 


~ 
DONA AL WI 9 OOO NAUSEA 9S OD NAME WIN OOD NAUEWIN OOD NAMEN (OO OONOUS Ww 


a) 
ou 
om 
te] 
"oS 
~~" 
Woenu 
= 
woo 
ooo 
109090000 0000 
>>> >r>rrr>r 
NO > PP NNT NH 
00900090909 C9 6d Gd Od Gd Cp 09 G9 CD C0 0 Cn 
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C1 90 ; 
3 3 ; Non=-shared unit - perform SCANCEL function. 
SC AS) OB C1 38 2s: TSTW Ur gOU REFERS) ; Last reference? 
m6 CY C4 94 BNEQ $ ; Br if no = do selective cancel 
54 0180 C5 4 C6 95 3$: OVL UCBSL_XE_CDB(R5) ,R4 : Get CDB address 
FC cB 39 BSBW SHUTDOWN : Shutdown entire unit 
oie 43 9 BBS #COB_STS_V wiTED.~ ; Br if DEUNA/DELUA is still inited 
OA 025A * D 38 CoB_B STS(R4),5 3 
0263 C 1 CE 2804 809 MNEGL 4#1,CDB_G_PHA(R4) : Reset physical address 
0267 C46 «(01 «OA D9 ist MNEGW #1,CDB"G-PHA+4(R4) : tt 
eDE : § 3; When this is the last reference to the unit, reset the CPID of the UCB. 
10 A8 28D 194 Ss: BISW S*#UCBSM ONL INE ,~ : Set the UNIT to ONLINE 
64 A? BE 19? UCBSW_STS(R ) : 
OOBC C 0 8E 1 § TSTL UCBSL_XE_CPID(R5S) 3; Did we save the Creator PID? 
OA 1 8E6 81 BEQL 10$ : Br not 
20 AS = 008C CS) «DO 6e8E8 «68108 MOVL UCBSL_XE_CPID(R5) ,UCBSL_CPID(R5) ; Else, restore Creator PID 
OOBC C5) = 4 ges 109 CLRL UCBSL_XE_CPID(R5) ; Never again!! 
0008 8F BA 28F 110 108: POPR #°M<R3,RZ,R6,R7> ; Restore registers 
05 ars ae RSB 
ore B18 ; Abort all associated receive packets on UCB queue 
54 04 AE 00 28F7 8113 208: MOVL 4(SP) ,R4 ; Restore PCB address to R4 
E1 28FB g118 BBC Seer eating - ; Br if not online 
F2 64 AS arp WV UCBSW~STS(R55,10$ : 
8119 ASSUME UCBSV_XE_INITED “* 0 
EE 68 AS” E9 0 8120 BLBC UCBSW_DEVSTS(R5) 1.4 ; Br if not inited 
56 OOA8 C5 9E 8121 MOVAB UCBS$Q_XE_RCVREQ(R5),R6 ; Get address of receive queue 
29 =6©10 H ¢ BSBB CHECKER 3: Check packets on queue 
+ : 3; Abort all xmit requests on CDB queue 
57 0180 ¢5 00 81 6 : MOVL § UCBSL_XE_CDB(RS) .R7 : Get CDB address 
00 €1 1 BBC # STS NITED,- : Br if not inited 
DC 025A C7 8128 COB_6_STS(R7),10$ 3 
129 DSBINT UCBSB~DIPL(R5S > Syne access to CDB 
57  7C A? 9E 130 MOVAB CDB_Q-QUEUES(R7),R7 3; Get start of queues 
58 91 9A 131 MOVZBL S*#CDB_C_ABORTS,R8 ; Get number of queues we can abort on 
56 7 00 1 § 30$: MOVL R6 : Set address of next queue 
48 1 BSBB «CX CHECKER : Check CXBs on this queue 
57 98 C 134 ADDL #8,R : Skip to next queue 
f5 5 F 135 OBGTR R8,30$ : Loop thru queues 
1 § ENBINT 3; Enable interrupts 
we wv : BRB 10$ 3; Exit from cancel 
139 3; Subroutine to scan queue for match on all packets 
124 CHECKER: 
53 $6 dO 126 MOVL (R6) ,R3 ; Get next entry 
56 D1 143 108: CMPL R3,R6 : End of List? 
"Y 144 BEaL §«=s_«-30$ : Br if yes 
10 #1 145 BSBB ial : cancel if appropriate match 
08 1 146 BNEQ 0 ; Br if no match 
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; Subroutine to 
HECKPKT: 


td 


_ 
So 
P 


—_ 
oa 
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3; Subroutine 
CxB_CHECKPKT: 
MOVL 


PSD a a a a ad oh I OD 
DODO OOOO OOOO OW 09 0009. 69 09 09 09 09 09 SI NII NNN PPA A AAA AAA MMIII EE OT 
AR @§O OONOAUNE WIN 9 OD NOAU EWN 9 ODN NEW 9 ODNOAU EW OO OONOULS UP" O0OOnN 


(0.00 09 09 09 09.09 0D Cd 0D G9 0D GD. 0D Od Cd Od Cd Od Cd Cd Gd Od Od OD GD OD Cd OD Cd Cd OD Cd Gd Od Cd Cd Cd Cd Cd Cd Cd C0 Gv C9 C9 0D GD Cd C9 CD CD G9 0D 00 0D Co 


SSE=198e 00: 


3 
1 


check for specific cancel 


RPSL_PID(R3) 


IRPSW_CHAN(R3) 


(R6),.R3 

R3,R6 

30$ 
XB_CHECKPKT 
(R3) ,R3 
CXB$L_T_IRP(R3) RO 
16$ 

RO,R3 

ABORT_PKT 
CXB_CRECKER 

UCBSL_XE_FFI(RS) ,R4 


#SS$_ ABORT RO 
af F ISL_XMIf_DONE(R4) 


aacago 
10$ 


check for specific cancel 


XBSL_T_IRPCR3) .RO 
JRPSL_P1D(RO) 
10$ 


Sete Se Sete 


754 VAX/VMS 
:23 CORIVER. 


Remove from | 
Complete the 
Look for more 
Travel Link 

Look for more 
Return to caller 


o V04-00 
XEDRIVER.MAR; 1 


Macr 
§ SRCJ 
ist 

1/0 request 


Is this an Internal IRP? 
Br if yes 
Br if valid PID 


Valid PCB? 


; Br if yes, no match 


Else, test CHAN 


PEDO). PR, PIOUS? é fe match? 


r no 
Try CHAN match 


SL_PID(R4) ,UCBSL_XE_PID(R5) ; IS this the starter'’s PID? 
; Br if no 


Channel match? 


; Return to caller 


Get next entry 
End of list? 
Br if yes 

Cancel if appropriate match 
Br if no matc 


Get IRP address 

f not, FAST interface 

Copy IRP address 

Complete the 1/0 request 
for more 

Else 


save R4 
Get FFI block address 
Set status return 
Complete the XMIT CXB 
Restore R4 
Look for more 
Travel Link 
Look for more 
Return to caller 


Get address 

Br if no IR 

Is this an Internal IRP? 
Br if yes 

Br if valid PID 


rae Uf 


Se nee ee 
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98 4 
54 D 98 5 TSTL R4 falig PCB? | 
| ea 9B § BNEQ 208 yes. no match 
mo 4 4 BRB 40$ i Ele. est CHAN 
OC AO 60 AG DI 9B § 10$: CMPL P BSL. PID(R4), IRP$L -P1D(RO) ; te B rcrssnce 
7 \¢ 98 9 BNEQ 5 :; Br 
1 3 ! BRB 40$ ; Try CHAN match 
00B8 CS) 60 A4 9} +5 18 30$: cre Eces L PID(R4) ,UCBSL_XE aie 9, iy this the starter's PID? 
28 AO 82 of SCA 15 388: CMPW R2, 1 RP$W_CHAN(RO) : Phentet match? 
5 ote 18 50$: RSB ; Return to caller 
4} 18 ; No IRP with CXB - FFI user 
54 D5 29CF 0 80$: TSTL R4 : No PCB? 
F 13 2901 1 B ; Br if true - abort 1/0 
s6hC3 DO 2903 § : Else, return Z-BIT clear 
05 2906 8 ; Return to caller 


Check for match with SHR data base 


EDR IYER = VAX/VMS_ DEUNA/DELUA Dri 
v04-00 SUBROUTINES TO FIND SHR DATA STRUCTURE G 5=SEP-19 DRIVER. SRCIXEDRIVER.MAR; 1 
+44 5 -SBTTL SUBROUTINES TO FIND SHR DATA STRUCTURE GIVEN PCB AND CHAN 
494 5 i Subroutine to find SHR data structure for user 
907 5 : Inputs: 
907 9 : R2 = Channel number 
907 3 R4 = PCB address (or zero) 
44 § $ R5 = UCB address 
907 4 ; Outputs: 
907 > ae Ri = gts a SHR data structure if match 
907 § 3 RO is destro 
9D7 3 Z7-Bit set then match. 
907 8; Z-Bit clear then no match. 
3bF B55 
907 41 FIND_SHR: ; Try to find shared user 
51 00C4 C5 09 907 tg MOVL VEE otaNe MEFUER IRS) JR ; Get address of default user 
ae. F 9D0C 4 BEQL 0$ ; Br if no default user 
1C 9 +43 44 BSBB 90$ : Check for match 
19 #1 9E 45 BEQL 40$ ; Br if matc 
50 0098 CS’ 9E 4 8 6 10$: MOVAB UCBSQ_XE_SHARE(R5),RO ; Save address of listhead 
51 50 00 29€7 824 MOVL RO,R1~ 3; Copy tisthead address 
9EA 8 48 ASSUME SHR L_QFL EQ 0 
51 61 DO 29EA 49 208: MOVL (R1J,R1 3; Get next in List 
50 51 D1 29ED 8250 CMPL R1,RO ; Back to start of List? 
06 13 29F0 8251 BEQL 30$ ; Br if yes = no pid/ehan match 
08 10 29F2 8 26 BSBB 90$ : Check for match 
F4 «12 29F4 825 BNEQ 20$ : Br if none 
03 11 29F6 8254 BRB 40$ ; Return in success 
50 50 0 4 32 ios: sey RO,RO ; Return match failure 
FERS 
a 2 ; Subroutine to check if PID and SHR data base match up 
SFC 61 : Inputs: 
SFC 6¢ : R1 = SHR address 
SFC 63 ; R2 = Channel number 
4 rt: : R4 = PCB address (or zero) 
SFC 98 3; Outputs: 
SFC 67 ; Z7-Bit set then match. 
SFC 4 3 Z7-Bit clear then no match. 
OFC § : 
ore 8571 
DS 29FC te TSTL RG ; : Valid “ address? 
ig oF 7 BNEQ 100$ : Br if 
D A 74 TSTL SHR_L_PID(R1) : Zero P D? 
\¢ A 75 BNEQ 1408 ; Br if not 
1 A 6 BRB 110$ Try for CHAN 
D1 2A 77 100$: CMPL 97 + sas PID(R4) ,SHR_L _P1p¢kt) 3; PIDs match? 
ie AOC 4 BNEQ 140$ : Br if no - rT. for next 
A 5 7 1198: CMPW R2,SHR_W_CHAN(R1) : Channels match? 
5 2Al 80 1408: RSB ; Return to caller 
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: -SBTTL FIND_POINT_UCB = Find the point 
iy FIND -POINT_UCB = Find the point-to-point UCB 
t Functional description: 


3; message. This is only needed when the protocol 


: Inputs: 
Protocol type (startup) 


MSG buffer address 
COB address 


DzDwaw 
en 
“un 


IPL = FIPL 
Outputs: 


RO = Status return for request 
ALL other registers are preserved 


Morr 


SPPPPPPPPIPPYEPPYyPPYrrErrrrrrrrrrrrrrrrrrrrrrrr>r>r 3 


FIND POINT UCB: 
PUSHR 


HP AAWIAIWII—RINPOPIRD) SS St tt SS Ss SS SS es SS 
AN AAA AA AIMIPPIPIPIPINPINPINPIDID 2 OO | MQOOCOCOCOCOOCOCOCOCOVOVOOVOOOOOODOO@oOwwmn DZ 


DNA NEW 9S OD NOME WIN  O OOD NAME WIN  O OD NAME WIN 9 OD NAME WIN O OONOAUE Pn 
o 
=z 
m 
© 


OO06E 8F 6B SH #*M<R1,R2,R3,R5,R6> 
50 D4 7 CLRL 
46 A2 9} 8} 4 CMPW #1 ,CXBSW_R_SIZE(R2) 
48 A2 AA BF 91 F CMPB #*XAA,CXBSW_R_SIZE+2(R2) 
07 «13 4 BEQL 
48 A2 AB BF 91 6 CMPB #*XAB,CXBSW_R_SIZE+2(R2) 
> te B BNEQ 90$ 
55 00C8 C4 00 D 10$: MOVL CDB_L_UCBO(R4) ,R5 
30 AS 09 2 20$: MOVL CBSL-LINK(RS) ,R5 
68 1 BEQL 0$ 
ASSUME UCBSV_XE_INITED EQ 0 
F668 AS ED BLBC UCBSW-DEVSTS(R5) ,20$ 
00 «(91 C CMPB #NMAST_LINPR 4} 
00D8 C5 E yrese. RE_PROTRS) 
EF 12 1 BNEQ 
ooge cS) sot CMPL UCB$G_XE_DES(R5),- 
E Ag AG XB$G_R_SRC(R2) 
£ 12 2A49 BNEQ 
0000 ¢S-)—s «Bis 2A4B CMPW UCB$G_XE_DES+4(R5) ,- 
42 A2 AGF XB$G_R_SRC+4(R2) 
DF 12 2A5 BNEQ 
48 A2 AB BF 91 = 2A5 CMPB #*XAB, CXBSW_R_SIZE+2(R2) 
14 12 2a5 BNEQ 40$ 
05 68 AS 03 E4 2A5A BBSC #UCBSV_XE_START,UCBS$W_DEVSTS(R 
28 68 AS 3 ES 2A5F BBCC Ucast tee gence K UCB y DEVSTS(RS5) 
52 017¢ 8 A64 30$ MOVL 
A69 BSBW 
E 1 2A6C BRB 
48 A2 AA BF 91 2A 40$: CMPB SOKA, CKBSW_R_SIZE*2(R2) 
if A 99$: BNEQ 90$ 
0060 B A7 BITW #UCBSM_XE_START!UCBSM_XE_STACK,- 


en, ne the a to pale Base 1 9:39:34 
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to point UCB 


: This routine is called to find the porneere et ae UCB for some received 


is in the startup state. 


Find the point-to-point UCB 
Save registers 

Assume failure 

s pyr fer the. right size? 


Is ge byte start byte? 
es 
Is first byte stack byte? 
if not 
Get UCB address of unit 0 
Get address of next UCB 
Br if end of List 


Br if not inited 
Is this a point-to-point user? 


if not 
es the destination match? 


os 


f not 
L match? 


ate 
tas 7 te 
as 


ir st “eves stack byte? 


i3 clear Start state 
7% We vere in RUN, ignore 


oo 
D=—4YO"O=-O28 OT If 
wes 5 


oo 
ae 
a 
w 
Wwe 
oe 
on 
o 
= 


hen send data 

s first byte start byte? 
not, ignore i 

;% Are we in startup states? 


Sete Se Se tee &© Fe Ge Se Se Se Ge Ge Ge Se Ge Ge Ge 


Ss FRVR VE VE VED NOE FETE FL GL IL FL FLFLFLFLIL —-n PL FL FL VL FL VL FL FL FL FL IL PL 


7) 


] 
79 | 
72) 

| 
| 
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68 AS A79 yeeew. DEVSTS(RS) 
28 13 2A7B BEQL 3% Br if not, start recvd in RUN 
A? CLRBIT na XE a atoy Lays eRe DEVSTS(R5);% Clear starting bit 
52. 017¢ C5 4 A OVL Xe. 3% Get start IRP 
FCFO A BSBW 3% Send Hay & 
11 1 ABA BRB 3% Wait for st 
53 0080 D5 OF ABC 60$: § REMQUE : sci saien oa 3% Get transmit. IRs 
07 1D 2A VS 3% Br if no more 
0080 D4 63 OE 2ad INSQUE (R3),@CDB_Q_XMTREQ+4(R4) :% Insert IRPs onto xmit queue 
Fe 11 2A9 B 3% Look for more 
DAOB 30 2A9A 70$: BSBW XMT_ALT_START 3% Startup the xmit process 
50 01 9A Mt 80S: MOVZBL #1,RO0 3% Return success 
OO6E 8F BA 2AA 90$: POPR #*M<R1,R2,R3,R5,R6> 3% Restore registers 
05 2AA4 RSB 3% Return to caller 


: Start received in run mode 
1208: CMPL UCB$Q_XE_SHARE 


5),° 3% Is Limited queue empty? 
ten XE. SHARE (RSS | 7% 
$ 3% Br if yes, no IRPs 
eo tee DEVDEPEND(RS) ;% Clear active bit 
CB$L_BEVDEPEND(RS) ;%& Indicate cause of error 
CBSM_XE_STACK, at clear start and stack flags 
$W_DEVSTS(R5) ;% Clear the RUN flag 
),R6 s Get address of share structure 
IZ E 
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RO = Status return for request 
RI 4.R¢ are destroyed 
are preserved 
Implicit outputs: 


COB_8 “ALT TBE e paamey of multicast addresses in CDB_G_MLTTBL 


F 1 
/DELUA Dri 16-SEP-1984 00:32:5 AX/VMS Macro v04-00 Page 1 
UP ALL THE MULTICAST ADD oes 7 837 $334 YORIVER. SRCIXEDRIVER.MAR; 1 . 3 
: -SBTTL ADD_MULTI = ADD UP ALL THE MULTICAST ADDRESSES 
"ADD _MULTI = ADD UP ALL THE MULTICAST ADDRESSES 
; Functional description: 
: This routine is called to oe he A all the per ey oy geen, multicast 
; addresses into a single list in the CDB. the multicast 
; addresses is greater than the DEUNA/DELUA can menage, "shes an error is 
3; returned. 
: Inputs: 
: RS = UCB address 
: IPL = FIPL 
: Outputs: 
: CDB_G_MLTT ew multicast address List 
ADD_MULTI: ; Add up all the multicast addresses 
PUSHR o peree R4,R6,R7> ; Save registers 
MOVL UCBSL_XE_CDB(R5) ,R4 : Get CDB address 
CLRB COB 5 “AL TIBE (R4) 3; Reset number of entries 
PUSHQ 4 ; Save CDB and UCB addresses 
MOVCS #0,CDB_G_MLTTBL(R4),#0.- ; Zero the structure 
B_G_M MLTBLiRg) ; 


#6eMAX- -f “MLT,CD 
POPQ RG Restore CDB and UCB addresses 
MOVZBL #MAX_C_MLT+1,R3 Error if 1 more multicast address 
than we can aeneng 


; Assume succes 


+ 
az 
oa 
Bete Se Ge Ge Ge Ge te & 


MOVAB (DB -ALTTBL (RG) t Get address of Multicast table 
MOVL UCBSL_DDB(R5) ,R7 ; Get DDB address 
MOVL DOBSL_UCB(R7) ,R7 ; Get Ist UCB address 
10$:  MOVL YCBSL LINK (R75 ,R7 ; Get next UCB in List 
BEQL $ ; Br if no more UCB's 
ASSUME UCBSV_XE mires Fe 0 
LBC UCBSW_DEVSTS(R5) ,10$ ; Br if not inited 
OVAB UCBSG_XE_MULTI (RZ) .R2 ; Get address of Multicast List 
MOVZBL UCBSB_XE_MULTI(R7),R ; Set number addresses for UCB 
208: STL (R2) : Is this field unused? 
BNEQ 5 ; Br if no 
TSTW (R2) 3; Really? 
BEQL 30$ 3; Yes - voate it 
25$ DECB R ; One less e allebte slot in COB 
BEQL 40$ ; Br if none left - error 


XEDRIVER = VAX/VMS DEUNA/DELUA Driver 16-SEP-1984 00:32: AX/VMS Macro V04-00 Page 1 
Hara ADD_MULTI = ADD UP ALL THE MULTICAST ADD g-§ P-1984 0:76:38 YORIVER. SREIREDRIVER-MAR: 1 ° (88) 
8 66 4 B1 4 MOVL (R2), (R6)+ 3; Else, insert next address 
86 94 A B 4 MOV) 4(R25,(R6)+ ; nas 
0s 7¢ 6 2B 4 INCB CDOB_B_MLTTBL(R4) ; Count one more in List 
77 C4 1 2B 4 CMPB COB_B_MLTTBL(R4),- ; Is there enough room? 
A BoD 84 : #MRX=C_MLT ; ae 
8 1A 2 4 BGTRU 40$ 3; Br if no - error 
52 ° £9 B 434 30$ ADDL +04 ; Skip to next entry 
0B F B 435 SOBGTR R1,20$ ; Br if more 
cs (14 : 4 6 RB 10$ : Else, skip to next UCB 
50 Ds 2B 438 40$: CLAL RO ; Return failure 
00D8 8F BA B3A 8439 50S: POPR #*M<R3,R4,R6,R7> ; Restore registers 
5 2B3E 8440 RSB 
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MULTICAST ADDRESS SaSeP-19B4 HOx49:5% YORTVER. SarsaEbotues 


~SBTTL MOVE_MULTI = COPY THE MULTICAST ADDRESS LIST 
MOVE MULTI = COPY THE MULTICAST ADDRESS LIST 
Functional description: 


MER EER = VAX/VMS DEUNA/DELUA Driv 
vO04- MOVE MULTI = COPY THE 


This routine is called to copy the multicast address list from the 
generation table to the actual List. 


Inputs: 
= CDB address 
Outputs: 
ALL registers are preserved. 
Implicit outputs: 


COB_B_MULTI = Number of multicast addresses in CDB_G_MUDB 
CDB_G_MUDB = New multicast address List 


MOVE _MULTI: 3 eae ne ry ot dag address List 
3F BB PUSHR re § R1,R2,R3,R4,R5> Save regist 
012A C46 0278 C6 3C 28 MOVC3 #MAX_C MLT#6, CbB G_M TTBi (Ra) “Cbs 6 *MUDB (RS) 3; Copy List 
3F =A POPR #*M<RO> RLLR R2.R3,R4-R5> ; Restore registers 
0276 C4 0277 C4 4 oo CDB_B _ALTTBL (RSS, cB 3 MULTI (R4) ; Set number of entries 
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UNA/DELUA Driver i at i at 9 00:38:34 hes Macro V04-00 
SAVE/RESTORE UCB'S MULTICAST 5=-SEP-1984 00:19: DRIVER.SRCIXEDRIVER.MAR; 1 
tt¢ pa -SBTTL ROUTINES TO SAVE/RESTORE UCB'S MULTICAST ADDRESS LIST 

the : ROUTINES TO SAVE/RESTORE UCB'S MULTICAST ADDRESS LIST 

476 : Functional description: 

+28 : These routines are called to save or restore the multicast address List 

rh 4 4 3; in the UCB. 

4 1: Inputs: 

4 § ; RS = UCB address 

4 5 : Outputs: 

4 ; ; ALL registers are preserved. 

489 ° 

490 SAV_MULTI: ; Save multicast address List 

491 PUSHR #*M<RO, a »R2, ee ote R5> ; Save tyne oh 

136 mMOVC3 se esax ae ALT UCB $6 oXE_MU MULTICR R5),- iove multicast addresses 
494 POPR #enc ae aT. R2 a RSA R4, R5> : Restore registers 

495 MOVB UCBSB_ KE MULTI (RS) 3 Save count of multicast addresses 
496 UCBS$B-XE “WUT TOL RSS : 

rh Hf RSB 3 Return to caller 

499 RES_MULTI: ; Restore quitteest address list 

500 PUSHR #*M<RO,R1 phe. R3,R4,R5> Save register 

501 MOVC3 #6*MAX_C_ML UCBS$G._ XE mira tas)" $ Restore multicast addresses 
30¢ UCBS$G_RE-MU ‘fy : 

50 POPR M<RO,RT,R2,R3,R4,R5> ; Restore registers 

504 MOVB UCBSB_XE ALT TBL (R55 ,= ; Restore count of multicast addresses 
505 UCBS$B_XE_MULTI(RS) $ 

506 RSB : Return to caller 
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«SBTTL VALIDATE_P2 = VALIDATE P2 BUFFER PARAMETERS 


+ 
VALIDATE_P2 = Validate P2 buffer parameters 


This routine is called to validate the P2 buffer parameters. The parameters 
are checked against a parameter table which verifies that the minimum value 
and maximum value is not violated, and that invalid status bs are not set. 
If the parameter is a string, then the string must not exceed the maximum 
string count for this parameter. 


Inputs: 


= IRP addres 
= UCB address 


¢ = Address of verification table 
s 
5 


Outputs: 

RO = Status return for request 
If no error: 

R1 = Address of parameter verification table 
If error: 

Ri = Bad parameter value 


ALL other registers are preserved. 


Be Se Se Ge Se Ge Se Se Ge Ge Ge Ge Ge Se Ge Se Se Ge Se Se Se Ge Ge Ge Ge Ge Se Se 
+ 


VALIDATE_P2:: 3; Validate P2 buffer parameters 
PUSHR #*M<R2,R3 me R7,R8,R9> ; Save registers 
MOVL {RPSL _SVAPTECR 5,.R6 : Get system P2 buffer address 
BNEQ 0$ :; Br if a system buffer 


108: BRW 150$ ; Else, leave 

208: MOVL UCBSL_XE_CDB(R5) ,R4 ; Get CDB address 

MOVL P2B_L“POINTER(R6),R6  ; Point to start of P2 data 
MOVZWL IRPSW-BCNT(R3) RB ; Get size of P2 buffer 


Loop to check next parameter in P2 buffer 


S0s: SUBL #2,R8 ; Can we get another parameter? 
BLSS ; Br if no - all done 
MOVZWL (R6)+,R1 ; Get parameter type from P2 

; wee NOTE - R2 MUST be the very first item on the top of the stack 

; MOVL (SP) ,R7 ; Get verification table address 


: Loop to check P2 buffer parameter to Line parameter table 


ASSUME PRM_W_TYPE EQ 0 
MOVW (R734#>RO ; Get parameter type code 

BNEQ 45$ ; Br if NOT end of verify table 
3$: BRwW 170$ ; Else exit in error 


60 


60 
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PRM B_FLAG EO PRM_W_TYPES2 
(R7J+°R ; Get flops byte 
#*C<PRM_TYP_M_CODE>,RO Lear all but type code 


¢ 
; Parameters matc 


R1,R : 

308 : Or if xe 

#2,R7 : Skip offset word 
PRM_FLG_V_MIN,R9,R7 3; Skip minimum value 
PRM_FLG_V_MAX,R9,R7 ; Skip maximum value 
PRM-FLG-V_INVALID,R9,R7 ; Skip invalid flags 
408% 3; Try next parameter 


nullify if same value & check min,max,valid,invalid 


(R7)+,RO 3; Get offset + width 
#PRM_OFF_V_WIDTH, ; Get width only 
#PRM-OFF-S-WIDTH.RO,R2 ; han 
#PRM_OFF_V_VALUE,- ; Get offset only 
#PRM-OFF-S-VALUE.RO,RO : none 
#PRM-FLG-V"CDB,R9,55$ : Br if COB datum 
R5,RO 3; Compute offset in UCB 
57§ 3; Continue 

P 3; Compute offset in CDB 
PRM_B_FLAG EQ PRM_W_TYPE+2 
PRA_TYP_V_STRING,-5(R7),95$ ; Br if string parameter 


; Must be longword value 


43 3; Br if error 
(R6)+,R3 3; Get parameter value 
R2,TYPE=B,LIMIT=41,<- : Br to handler 

60$,- ; Byte value 

70$,- 3; Word value 

80$> ;  Longword value 
structure 

R3, (RO) : Is this the same? 
90$ 3; Check result 

R3, (RO) :; Is this the same? 


Check result 


Is this the same? 

Br if no - continue checks 

Is this the protocol type? 

Br if yes - always store this 
Nullify the parameter code 


ry 
LONNGGG Branch to 17 


Oz 
wr 
fn 
Po) 
co 
eee 


; Can we fetch string length? 
Br if no - error 


16=SEP=1984 00:32:54 YAX/VMS Macro V04-00 Page 1 
SEp-1986 00:19:25 LDRIVER.SREIXEDRIVER.MAR:1 "2%" (96 
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XEDRIVER = VAX/VMS DEUNA/DELUA Drive 16-SEP-1984 3 AX/VMS Macro v04-00 Page 187 | 
raat VALIDATE_P2 = VALIDATE P2 BUFFER PARAMET aes tt 8: §: 34 YORIVER. SRCIXEDRIVER.MAR; 1 . 3) 
33 86 3 CIF 86 § MOVZWL (R6)+,R3 ; Get string on for 
‘ C SUBL R3,RB : Is S fhe re —— or string? | 
£9 ¢ 4 BLSS 9 5" ; f no - 
+ 2 H C 5 CMPW R3,R2 3 1s the string. too long? 
2 A 2CeA 86 $ BcTRU 93§ : Br if yes - error 
- CO eCec 86 ADDL R3,R : Skip past strin 
51 21 8F a CeF 86 8 CMPW WNBA C_PCLI_DES,R1 ; Is this the des ination address? 
YY C34 B6 BEQL 96$ : Sr yes 
51 0804 4 8 : 6 ? , ee #NMASC_PCLI_PHA,R1 ; is this t the physical address? 
: Br not 
0298 i§ C3D 86 § 96S: BSBW valle PHYAD 3; Validate the physical address 
D4 50 5? og ° BLBC RO,93$ : Br if error in physical address 
0091 1 2C4 4 BRW 145$ 3 i cons teue checking 
51 OB0F a 8 C46 6 5 97S: CMP #NAASC_PCLI_MCA,R1 : Is this th the oulticast address List? 
024F i$ C4D «86 $ BSBW VALID_MULTI 3; Validate the multicast address List 
C450 =2«€€9 C30 6 3 BLBC RO ; Br if error 
C53 86 DSBINT ychse FIPL(RS) : Sync access to UCB 
FEF6 30 2C5A 8640 BSBW : Save the multicast addresses 
240 ef C5D 8641 PUSHR PoMZRGS RO> 3 Save registers 
6 ; C C61 a) SUBL . »R6 3; Backup pointer to start of List 
3 Y C64 864 MOVL R9 : zetug string count in R9 
02A9 0 2C67 8644 BSBW Sef MULTI ; See if we can set new addresses 
C6A 8645 3; RO = return pb ey 
0240 8F eA C6A 5046 POPR #*M<R6,RI> ; Restore regist 
FEF6 0 Cor 64 SBW RES_MULTI ; Restore the aulticast list 
¢71 28 ENBINT $ peotere a 
68 50 £9 2C74 864 BLBC "9 170$ : Br ife 
12 #11 744 $20 BRB 136$ 3; Check it + okay 
05 59 99 E1 2Cc79 $26 100$: BBC #PRM_FLG_V_MIN,R9,110$ ; Br if no minimum value 
87 65 Bi 2C7D 865 CMPW R3,(R7)+ : Is the value too small? 
5D Od‘ cee 654 BLSSU 1708 ; Br if yes - error 
05 59 «#01 E11 2C 655 110$: BBC #PRM_FLG_V_MAX,R9,130$ ; Br if no maximum value 
87 53 61 ces $26 CMP 3, (R7)+~ : Is fhe value too bis? 
54 IA 2C 65 BGTRU Br i t yes - erro 
48 59 02 E1 2C8B 8658 130$: BBC #PRM mFLG. V_INVALID,R9,14 és; Br if no invalid flags 
26 B0 cer 659 MOVW > Get invalid f lags 
06 3 EO C92 8660 BBS spre * te V.CDB,R9,135$ ; Br if CDB dat 
68 AS 2 a C96 8661 BITW is yCBsu. pEvsTs(r$) 3; Check UCB favatid bits 
09 11 2C9A 66¢ BRB ? : Continue 
a3 ? 36 rer 135$: it 3 a: 508 8 present? 
025A C4 3 G CA 665 BITB ng. top_B.STS(R4) 3; Check CDB yh. FF bits 
1 A 008 137$:  BNEQ 6s ; Br on error | 
50 OA AS 9A 2CA7 ree. 140$: MOVZBL_ UCBSB_ re os) RO ; Retrieve device typ 
‘s eh SOISPATCH YPE=B,- 3; Dispatch based ‘on device type | 
CAB 671 <DT$_DEUNA 141$>,- ; DEUNA = don't allow NMASC_PCLI_ILP 
cae re = <DT$~DELUA 143$>,- ; DELUA - don't allow NMASC_PCLI-EKO 
cc 674 
0B17 8F 51 } CC? 18675 1418: CMPW R1,#NMASC_PCLI_ILP ; Is this the ILP Line Parameter | 
11 13 2ccc 676 BEQL 1768 : Return bad parameter if so 
07.—=s«111 CE 67 BRB 145$ : Else see if there are more parameters 
CD 678 | 
| 
| 


eecerncarenansenamastteainat —_ " 


XEDRIVER = VAX/VMS DEUNA/DELUA D -SEP-1984 32:5 AX/VMS Macro V04-00 Page 1 
aa Nt VALIDATE Po = VALIDATE opaY SUFFER PARAMET Bae st} 90:96:38 DRIVER. SRCIXEDRIVER.MAR; 1 - (76) 
OBIF 8F 3, jt tbe e40 143$: vty F) ggPASC PCL I_EKO 3 fe cate, She EKO Line ec 
; Return arameter 
FEBA 14 ° 145$: BRW is 3 Loop if sere parameters 
8 9A 2CDA 8685 1508: poyzet $0358 _HORMAL AO ; Set success return 
30 08 6 : BRB 3; And return 
33 14 QA 2CDF 8 § 170$: RovreL $“#SS$_BADPARAM, RO Set error return 
O3DC 8F A 2CE2 8687 180$: #*M<R2,R35,R4,R6,R7,R8, RS Restore registers 
5 2CE6 8688 RS. 3 Return to caller 
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XEDRIVER = VAX/VMS DEUNA/DELUA Driver 16-SEP-1984 00:32: AX/VMS Macro Vv04-00 Page 189 | 
en 008 CHANGE _PARAM = UPDATE UCB/CDB BASED ON P ~$6b= | 38% 90:96:34 YORIVER. SREIREDRIVER-MAR: 1 . (39) 
i -SBTTL CHANGE_PARAM = UPDATE UCB/CDB BASED ON P2 BUFFER PARAMETERS 
9 + 
i CHANGE _PARAM = Update UCB/CDB with P2 buffer parameters | 
95 ; This routine is called to update the UCB/CDB with the P2 buffer perencters. 
The parameters are stored in the epproge ete cells of the UCB/CDB. 
This routine can only modify the LINE PARAMETERS. 
Inputs: 
R2 = Address of verification table 
R5 = IRP address 
RS = UCB address 


IPL = FIPL 


ALL other registers are preserved. 


oO Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
a 
é 


MDD OO MOF FF FF VNTR TULF VU TE TEC TU ETE CTU TU CTU CTE CTU LTU ETUC TES TUCO CTU rTU eve TRC eR eU ere reer te yD 


Moronornon oO 
SROOCSawwwwwo~wnocPneunwwune NN SPMD NNN NNN NNN NNN NNN SNS 


WA. A. A.A AA. IAI IDO PITPINININININININ 2 2 3 3 3 3 3 QO 000 


ANEW OOD NOAUE WIN 9 OD NOAUE WIN $9 OO NAU EWN 0 ODNOAUE WN OONO 


| 
Outputs: | 
RO = destroyed. 
HANGE _PARAM: : Change the UCB/CDB parameters 
O7DE 8F 6B PUSHR #*M<R1,R2,R3,R4,R6,R7,R8,R9,R10> ; Save registers 
A dO MOVL : Save table address 
56 2C A b9 MOVL IRPSL_SVAPTE(R3) .R6 : Get system P2 buffer address 
1 BNEQ $ ; Br if system buffer 
oope =: 31 3$: BRW 1208 ; Else, return 
54 0180 C5 00 5$: MOVL UCBSL_XE_CDB(R5) ,R4 :; Get CDB address 
56 66 0 MOVL P2B L“POINTER(R6S ,R6 ; Point to start of data 
58 32 A3 C MOVZWL IRPSWIBCNT(R3) RB ; Get size of P2 buffer 
} Loop to get next parameter from P2 buffer 
58 02 + 10s SUBL #2,R8 3; Try to get next parameter 
. oe BLSS ; Br if not there 
50 Bs 7 MOVZWL (R6)+,RO ; Get parameter type from P2 
9 1 BEQL 90$ : Br if null value parameter 
57 SA 00 MOVL R10,R7 ; Get verification table address 
OBOE 8F be 2) : es hO #NMASC_PCLI_PTY 3 a: $18 she protocol type? 
: Br no 
4 ib 1 BISW #UCBSM_XE_PROTYP,- 3; Indicate that protocol type specified 
68 AS ; uUCBSW_BEVSTS(R5) 3 
\ : Loop to store buffer parameter in UCB/CDB 
1 , ASSUME PRM_W_TYPE EQ 0 
51 87 i 1 20$: MOVZ2WL (R7T4#>R1 3; Get parameter type code 
1 1 BEQL :; Br if end of verify table 
51 F000 8F AA BICW #*C<PRM_TYP_M CODED Rt 3;_Clear all but type code | 


SSUME PRM B.FTAG EQ"PRM_W_TY E+2 
(R7+,R ; Get flags byte | 

8 ; Parameters match? 

BeaL «=s«308 : Br if yes 


SOCCCVC SSC SCS SSO SF FSF FGI FGI FOO OOAOOAOOOAOAOAOAOAOANAOAOAOOAOOAAOOOOOAOOAAOO 
SSNS NIAAA OO 


Fhe ee 


sets 


57 02 
d7 
51 87 
A 
ae 06 
0 
51.51 OA 
05 59 9 
51 3 
51 5h 

2—E FB A? OC 
58 04 
68 
5386 
eee 
FF89 
61 53 
Fre 

) ae | 
FF7D 

56 (04 

58 04 
9 

F 
58 2 
59 i 
38 
50 =—0B21 ef 
oes 

50 0804 8F 
022D 
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11 
; Match 
BO $0s: 
EF 
EF 
E0 
CO 
11 
co 40$: 
50$: 
EO 
C2 
19 
dO 
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iver 16-SEP-1984 00:32:5 AX/VMS Macro V04-00 
B/CDB BASED ON P etsy 90:76:38 LORIVER. SREIREDRIVER.MAR: 1 
ADOL #2,R7 3; Skip offset word 
SKIP  PRA_FLG_V_MIN,R9.R7 : Skip minimum value 
SKIP PRM_FLG_V_MAX,R9,R7 ; Skip maximum value 
SKIP PRMFLG-VIINVALI6,RO,R7 : Skip invalid flags 
BRB 20$ ; Try next parameter 
found = nullify if same value & check min,max,valid,invalid 
MOVW (R7)+,R1 ; Get offset + width 
EXTZV #PRM_OFF_V_WIDTH,- : Get width only 
#PRM-OFF-S-WIDTH,R1,R2 ; abe 
EXTZV  #PRM_OFF_V_VALUE,=- ; Get offset only 
#PRM_OFF-S-VALUE,R1,R1_ ; ans 
BBS #PRM-FLG-V-CDB,R9,40$ : Br if COB datum 
ADDL R5,RT ; Compute offset in UCB 
BRB 50$ : Continue 
ADOL R4,R1 ; Compute offset in CDB 
ASSUME PRM_B_FLAG EQ PRM_W_TYPE+2 
BBS #PRA TYP_V_STRING,-5(R7),100$ ; Br if string data 
SUBL 4,R8 ; Can we get value? 
BLSS 26$ : Br if no - exit 
MOVL (R6)+,R3 ; Get parameter value 
CASE  R2,TYPE=B,LIMIT=#1,<- : Br to handler 
60$,- ; Byte value 
70$,- 3 Word value 
80$> 3  Longword value 
word, longword value in structure 
MOVB R3,(R1) ; Store byte value 
BRW 10$ : Check remainder 
MOVW R3,(R1) ; Store word value 
BRW ; Check remainder 
MOVL R5,(R1) :; Store longword value 
BRW 10$ ; See if more left in P2 buffer 
3 Unknown or invalidated parameter 
ADOL #4,R ; Skip value parameter 
SUBL #&,R ; Assume a value parameter 
BGTR 65$ ; Br if more 
BRB 120$ ; Else, all done 


; String parameter in structure 


#2,R8 Can we get stringer 


120$ Br if no - ex 
(R6)+,R9 Get string nays 
R9,R8 Can we read entire string? 


126$ if 
#NMASC_PCLI_DES,RO 


ET DESAD 


Br if 
Else 


Cont inue 

#NMASC_PCLI_PHA,RO a spis the physical address? 
r no 

SET_PHYAD Else set new physical address 


r no - exit 
Is this the destination address? 


no 
set new destination address 
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x priye® = VAX/VMS DEUNA/DELUA Driver A i ioe oR 6: :32:5 AX/VMS Macro V04-00 Page 191 
v04- CHANGE _PARAM = UPDATE UCB/CDB BASED ON P 5=SEP-1984 00:19:2 DRIVER.S SRE IXEDRIVER.MAR; 1 (77) | 
14 11 2dB 4 ARB 110$ ; Continu 
50 OBOF 8F 81 2dB 5 103$:  CMPW #NMASC_PCLI_MCA,RO ; Is nis. the multicast address List? 
5 16 DBA § BNEQ $ ; Br if no 
0154 ; DBC BSBW it MULTI ; Else oe up new UCB multicast List 
8 11 2DBF 3 BRB 0s 3 Continu 
3 B DC 105$:  PUSHR #*M<R1,R2,R3,R4,R5> : Save re gisters 
61 66 DC 10 MOVC3 R9 (R65, (R1) ; Store stri ng. | 
3 BA DC 11 POPR  #*M<R1 ho, RS, R4,R5> ; Restore registe 
56 9 DC9 \¢ 110$: ADDL R9 R6 : Point past the string. {n Ra buffer 
1 434 1? BRW 10$ ; Try for more in P2 buff 
Ba DCF $12 120$:  POPR #*M<R1,R2,R3,R4,R6,R7,R8, w + R10> ; Restore registers 
5 2dD3 16 RSB : Return to caller 


AX/VMS Macro Vv04-00 Page 13% 
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XEDRIVER = VAX/VMS DEUNA/DELUA Driver 16-SEP-19 32:5 
yon 008 RETURN_P2, Return UCB/CDB buffer parame ety 7 REPRE LORIVER. SREIXEDRIVER.MAR: 1 
DD4 1 -SBTTL RETURN_P2, Return UCB/CDB buffer parameters 
bb 36 ;++ 
444 1: RETURN_P2 = Return P2 buffer parameters 
44 ; This routine is called to return the UCB/CDB buffer parameters. 
444 5 : Inputs: 
DD4 : ; R3 = IRP address 
444 8 : RS = UCB address 
D4 p : Implicit inputs: 
DD4 : ; IRPSL_XE_P2BUF(R3)_= User P2 buffer address 
444 32 ; IRPSW_ XE “USER S1Z(R3) = User P2 buffer size 
bb4 HE : Outputs: 
DD4 88 5 : RO = Size of buffer returned 
DD4 Het 3 ALL other registers are preserved. 
DDS 8839 ; 
at ie i 
DD4 ae RETURN_P2:: 3; Return P2 buffer parameters 
O3DE 8F BB 2DD4 see PUSHR #*M<R1 R2,R3,R4,R6,R7, RB, = 3; Save registers 
30 D4 2DD8 8844 CLRL RO ; Assume no P2 buffer given 
56 GOA DO 2DDA 8845 MOVL {sree XE_P2BUF(R3),R6 =; Get user P2 buffer address 
03 12 2DDE He BNEQ ; Br if given 
0087 =‘31 +4 Ht BRW 70$ 3; Else, return 
54 0180 C5 go DES nk 5$: OVL UCBSL_XE_CDB(R5) ,R4 ; Get CDB address 
58 38 A3 C 2DE8 8850 MOVZWL IRPSW_XE_USERSIZ(R3),R8 ; Get size of user buffer 
29 DD 2DdEC $2) PUSHL RG ; Save start of outa address 
5 DD 44) 26 PUSHL R : Save IRP addre 
51 D298 CF 9E 44 S27 MOVAB LINE_PARAM,R1 ; Get address of “verification talbe 
40 $2? ; Loop to return next parameter 
DFS B37 : ASSUME PRM_W_TYPE EQ 0 
57 81 BO 2DdF5 58 108: MOVW (R1J+>R7 : Get parameter type code 
03 12 2dF8 59 BNEQ 11$ ; Br if end of verify table 
0096 = 31 48s re BRW 65$ | #0 
59 57 000 8F AB ore 86 118: BICW3 #*C<PRM_TYP_M_CODE>,R7,R9 ; Get only the type code 
53 81 9A 2E 6 MOVZBL (R1)+ RB : bet flags byt 
50 1 60 ; 8 rt: OVW (R1)+ ; Get offset t Stdth 
E09 66 > We will only return NMASC_PCLI_DES to the SHARED-LIMITED users. 
59 0821 or *) £09 oe : cr #NMASC_PCLI_DES,R9 : js this 8 @ point-to-point parameter? 
0004 cS) 0 of E1 19 CMPB #NMASC_ACC_LIM,UCBS$B_XE Accers) 3 is this a SHARED-LIMITED user? 
4 12 2€1 7 BNEQ 50$ $ f not, else return parameter 
A EF 2€1 72 138: EXTZV oon OFF _V_WIDTH 3 Get vate only 
52 50 6 E19 7 #PRA- “OF F- -{- WIDTH, “RO, R2 ; 
0 EF 2E1C 74 EXTZV #PRM-OFF-V V~VALUE = : Get offset only 


= VAX/VMS DEUNA/DELUA D 


rive 
RETURN_P2, Return UCB/COB 


f 16-SEP-1984 00:32: YAX/VMS Macro V04-00 Page 193 | XE! 
buffer parame miler y $8 :75:34 CDRIVER.SRCIXEDRIVER.MAR;1 > (78). 3 


ust 


50 A E1 75 #PRM_OFF_S_VALUE,RO,RO ; aes 
05 2 3 E 16 BBS #PRM FLG-V~CDB,R3,15$ ; Br if COB datum 
f E 7 ADOL R5,RO ; Compute offset in UCB 
07 1 08 BRB $ : Continue 
4 0 E2A 79 158: TSTL R4 i; Is 506 given? 
gf 1 E2c 0 BEQL 50 ; Br if no 
50 .  § E ; 1 ADDL a3 RO 3; Compute offset in CDB 
58 gs. E ¢ 17$: SUBL #2,R 3; Any room left in buffer? 
4 19 2634 BLSS 608 ; Br if no - all done | 
86 y § E § 4 MOVW R7,(R6)+ ; Bgturn parameter 
30 FB Al OC «EO FE 5 BBS #PRM_TYP_V_STRING,-5(R1),55$ ; Br if string parameter | 
58 046 ¢ E f § SUBL #4 RB 3; Any room left? 
47 19 264 BLSs 608 : Br if no = all done | 
E4 3 CASE Re TYPE=B,LIMIT=#:,<- ; Br to handler | 
E4 20$,- : Byte value 
E4 890 $0$;- ; Word value 
Ft S3) 40$> ;  Longword vaiue | 
FH 538 ; Byte, word, longword value in structure 
86 68 3 a3 So 208: porte (RO), (R6)+ 3; Store byte value 
86 83 * ES¢ 837 30$: 0 (RO), (R6)+ :; Store word value 
86 60 00 2657 8899 40$: MOVL (RO), (R6)+ : Store longword value 
ESA 8900 50$: SKIP  PRM_FLG_V_MIN.R3,R1 : Skip minimum value | 
£60 8901 SKIP PRM_FLG_V_MAX,R3,R1 : Skip maximum value | 
E66 o0¢ SKIP PRM_FLG_V_INVALID,R3,R1 ; Skip invalid flags 
oY eee 4 F BRB ; Try for more parameters 
$e: 444 3; String value in structure 
59 OBOF 8F BI Ege 30 55s: CMPW #NMASC_PCLI_MCA,R9 ; Is this the multicast address List? 
05 ie E7 908 BNEQ : Br if no 
ir 6 E75 8909 BSBW GR IRN MULT 3; Else, return multicast address List 
EO 11 2€78 8910 BRB 50$ 3 Try for more parameters 
58 08 F E7A 8911 57$: SUBL #8,R8 3; Any room left? 
0B 19 2€7D ge BLSS 608 : Br if no - all done | 
86 06 9B 2E7F 891 MOVZBW #6, (R6)+ ; Store string size 
6 80 00 ER? 914 MOVL  (RO)+,(R6)+ ; Move data 
p0.=—si11 3+ 218 BRB 50$ 3; Try for more parameters 
53 E 4 44 318 60$: MOVL (SP) ,R3 ; Get IRP address 
3A AS 0601 BF 8B E 4 91 MOVW #$S8_BUFFEROVE , IRPSU_XE_STATUS(R3) ; Return error status 
3 at 5 | E9 920 65$: POPL R ; Pop stack | 
50 56 Ha C £96 8921 SUBL3 (SP)+,R6,R0 ; Return size of parameters 
O3DE 8F BA 2E9A 89 § 70$: POPR #°M<R1,R2,R3,R4,R6,R7,RB.RI> ; Restore registers 
05 2E9E 89 RSB ; Return to caller 


i 
VALID.MULT] = VALIDATE THE MULTICAST ADD 5-SEP- DRIVER. SRCIXEDRIVER.MAR; 1 


-SBTTL VALID MULTI = VALIDATE THE MULTICAST ADDRESS LIST 


++ 
; VALID_MULTI = VALIDATE THE MULTICAST ADDRESS LIST 
; Functional description: 


; This routine checks all aserese 


n the multicast address list to make sure 
; that the logical address bit i 


i 
sb s on. 
; Inputs: 


Size of multicast string list 
COB address 
UCB address 


mm 
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oO 
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ESF 89 
FOF 895? 
ESF 89 8 
ESF 89 
ESF 8950 
ESF 8931 
ESF 89 ¢ 
ESF 89 
ESF 8934 
ESF 8935 
ESF 89 § 
ESF 89 
ESF 8939 
34 aeY R6 = Address past multicast strings 
444 348 ; Outputs: 
ESF 8944 RO = Low bit clear if invalid address in list 
ESF 8945 ALL other registers are preserved. 
ESF ae8 
sor boc | 
E9F 8949 VALID_MULTI: ; Validate the multicast address List 
004C 8F BB 2E9F S320 PUSHR #*M<R2,R3,R6> ; Save some registers 
50 01 CE 2EA3 8951 MNEGL #1,R0 3; Assume success 
56 = 53 cs EA6 Hee SUBL R3,R6 ; Point back at start of List 
: ia’ ae EA9 895 SUBL #2,R5 : Can we read modifier word? 
L s oF no - error 
26 «19 EAC 994 BLSS 208 Br if 
EAE 8956 ; Make sure modifier word is valid - non-zero and less than or equal to 
EAE 3937 3 NMASC_LINMC_CAL 
EAE 8959 ASSUME NMASC_LINMC_SET EQ 1 
EAE 8960 ASSUME NMASC_LINMC_CLR EQ ; 
EAE 8961 ASSUME NMASCILINAC_CAL EQ 
52 86 89 EAE +41 MOVW (R6)+,R : Get modifier value 
4 1 EB1 896 BEQL 20 ; Br if zero - illegal 
03 2 B61 2EB3 8964 CMPW RB #NMASC_LINMC_CAL i: Is the modifier okay? 
ic =(1A EB 965 BGTRU ‘ § : Br if no - error 
1c 6©13)—(2EB 96 EQL 0$ ; Br if “CLEAR ALL" - ignore strings 
53 98 6 EBA 896 DIVL #6,R3 ; Calculate number of strings 
17 13 2EBD 896 BEQL 308 : Br if none 
12 66 €9 2EBF + 10$: BLBC 6),20$ ; Br if not a Logical address 
50 if D1 ECe 9 9 CMPL 6)+, : Do low order bits = -1? 
0 12 2EC 97 BNEQ t ; Br if no - okay 
50 66 7 EC7 44 6 ; Do high order 16 bits = -1? 
3 2ECA 897 $ ; Br if yes - illega 
56 cg ECC 8974 3; Point tS next multicast address 
ED F ECF 8975 ; Loop if more 
02. 11 444 378 3; Exit with success 
50 D4 2ED4 44 | ; Return error 
004C 8F aA ED6 897 ; Restore registers 
5 2EDA 8980 
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v04- VALID_PHYAD = VALIDATE THE PHYSICAL ADDR 5-SEP-1984 3 CDRIVER.SRCIXEDRIVER.MAR; 1 (80) | 
EDB 89 § «SBTTL VALID _PHYAD = VALIDATE THE PHYSICAL ADDRESS 
EOE Road s+ | 
444 2 5 : VALID_PHYAD = VALIDATE THE PHYSICAL ADDRESS 
444 4 $ : Functional description: | 
EDB 89 § : This routine checks the physical address to make sure the LSB is clear and | 
EDB 89 9 3 that the modifier word is valid. 
EDB 899 ; } 
BE ABE | tues | 
EDB 8994 : Ri = 9 phage ae 2 code | 
EDB 8995 ; R3 = Size of st 
EDB 8996 ; R4 = CDB address | 
EDB 8997 ; RS = UCB address 
st 144 $ R6 = Address past physical address string | 
BE $380 | cutouts 
EDB 200¢ : RO = Low bit clear if invalid address in List 
EDB 9005 ; ALL other registers are preserved. 
EDB 9004 ; 
Saat 
EDB 3009 VALID_PHYAD: ; Validate the physical address 
004C 8F BB 2EDB 9008 PUSHR #*M<R2,R3,R6> 3; Save some registers 
50. =6(O01 C EDF 9009 MNEGL #1,R0 3; Assume success 
ee ee - bee 9010 SUBL R3,R : Point back at start of List 
53 98 C EES 9011 SUBL es bh ; Can we read modifier word? 
22 19 2668 901¢ BLSS 308 : Br if no - error 
A BE 
EEA 3018 : Make sure modifier word is valid. 
FEA 9019 | 
EEA ani8 ASSUME NMASC_LINMC_SET EQ 
EEA 901 ASSUME NMASC_LINMC_CLR EQ ¢ CH 
EEA 9020 ASSUME NMASC-LINMC_CAL EQ Cl 
EEA 3 1 ASSUME WRASE ob ANAC. SDF EQ 4 Cl 
52 86 3C 2EEA 9 § MOVZWL (R6)+,R : Get modifier value Cl 
444 3 Z SDISPATCH R2,TYPE=B,- 3; Dispatch on modifier value | y 
EED $9 5 <HnAsc -LINMC_SET 20$>,- ; Set the address CL 
EED § MASC_LINMC_CLR $>:- : Clear the address co 
EED 3 <NAASCLINMCICAL 30$>,- ; 3 = invalid value co 
444 9 3 <NAASC_LINAC_SDF 10$>,- ; 4 - check it out more 4 
11. ~=—«111 EF ; ? BRB 30$ 3; Any other values are invalid of 
51 06804 8F B61 2EFB 9 § 10$ CMPW #NMASC_PCLI_PHA,R1 ; Set to def physical eédr requested? C 
OA \¢ F p .) BNEQ 30$ : Return failure if no 
OA 1 : [ 9 : BRB 40$ 3; Else, success rT 
53 0¢ D1 2F04 3 § 20$ CMPL #6,R3 i Is S spring size okay? 
1g F07 3 BNEQ 5 
02 66 «OC FO9 9038 BLBC (R6) , 408 : Br if a physical address 


413 | 
vou 000" VALIB-PHYAD = "VALIDATE THE PHYSICAL ADDR 'S-SEP-1984 00:19:28 EDRIVER.SRESREDRIVER.maR:1 9° (26) 


FOC 
ar DS oF i ips: chat RO ; Return error 
004C 8F Ba : £ ? 40$: $4 #*M<R2,R3,R6> ; Restore registers 
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-SBTTL SET_MULTI = SET THE UCB MULTICAST ADDRESS LIST 


p++ 
; SET_MULTI = SET THE UCB MULTICAST ADDRESS LIST 
: Functional description: | 
; This routine sets up the multicast addresses in the UCB. 
; Inputs: | 
= CDB address | 
= UCB address 
R6 = Address of multicast addresses to be set or cleared 
= Size of multicast List 
IPL = FIPL 

} 


; Outputs: 


OGOQOOOCGCGCOOCOOCOCOOSOoOSoCSSO “Cc 
PAEXPEDAAMAGNI EE BPE Mm 


DOWOOOOOOOOOOOOOOOONO 


RO = Status return for request 
ALL registers are preserved. 


itn ; Set up the UCB multicast address List 


#*M<R1,R2,R3,R6,R9> ; Save registers 

#2,R9 ; Can we read the modifier word? 
; Br if no - exit 

; Calculate number of addresses 
; Get the modifier 


9078 CASE R1,TYPE=B,LT <> 3 Dispatch on modifier 
10$,- ; Set the address(es) 

; Clear the address(es) 

; Clear ALL addresses 


© 
oO 
@ 
Oo 
oa 
oO 
Sad 
es. 
i 
Sete ees 


9083 : Set address from List 


10s: Ist R9 ; Any addresses present? 


en ee ae ee ee HAMA MMMMAMMOMOAMMMAMMAMAMAMAMAMAAMAAMAMMAOAAMMAMMAMOMANAMAMOanaMN 


a Da Be Dan i De i Ds es Ds Dn Bs en De De Des i Be De Be ns De ns De ne De i De es De i ee ee i ie i i te ie i ie i ie i ie ee ee 
PUTS BB BB ALA AAAILAPIPIPIPIPIPIMOPINININYIARY a rd dt st at nt tt td tt ot ot tt to 


59 «oS 3088 
51 13 $086 EQL 90$ : Br no - exit 
51 $6 D op 208: MOVL (R6)+,R1 ; Get multicast address 
52 6 4 3 MOV (R6)+,R2 3 wREA 
0169 90 BSBW matce ADDRESS : Try to find address in table 
OF 50 «EB 9090 BLBS os ; Br if present - skip it 
8 10 9091 BSBB ae MLTENTRY ; Find entry in UCB multicast table 
43 —9 9 35 BLBC , 100$ ; Br if none - leave in error 
Ht 1 00 909 MOVL R1,(R3)+ ; Insert new address 
8 ¢ 80 9094 MOVW R2,(R3)+ : new 
00E7 3 9095 INCB UchsB XE_MULTI(RS) ; Count one more address 
—&2 59 =F 9 38 30$: SOBGTR R9,208 ; Br if more 
3 909 BRB 90$ > ALL done 
q 38 
4 9 
100 
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: Clear address from List | 
| 
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raat SET MULTI = SET ThE UCB MULTICAST ADDRES eet 1 8:76:34 YORIVER. SRC INEDRIVER-MAR: 1 ° (81) | 
9 OD F 3 1 40$ TSTL RF 3; Any addresses present? | 
rs 7 1 § BEQL 90$ 3; Br no - exit 
2] > F 103 50$ MOVL (R6)+,R1 3; Get multicast address 
2 g § F57 9104 MOVW (R6)+,R2 ; oa 
014 FSA 9105 BSBW MATCH_ADDRESS 3; Try to find address in table 
0B 5 E FSD 91 § BLBC RO,60$ 3; Br if not present - skip it 
4 D4 69 91 CLRL (RS)* ; Mark slot as not in use 
4 F62 91 8 CLRW (R3)¢+ s eee 
OOE7 C 7 F64 91 DECB UCB$B_XE_MULTI(RS) : Count one less address | 
0088 9 F68 9110 BSBW SQUEEZ AOL TI 3; Squeeze up the multicast List 
£6 5 F F6B 9111 60$ SOBGTR R9,50$ 3; Br if more 
7.013 FGF gil BRB 90$ : ALL done mA 
£20 git : Clear all multicast addresses mI 
Q00E7 CS 94 2F70 gis 70$: CLRB UCBS$B_XE ose 3; Reset number of multicast addresses mC 
Be 9A 2F74 911 MOVZBL #MAX_C_MCT*5,R1 ; Get number of words in multicast List MC 
52 O0E9 C 9E 2F77 9118 MOVAB UCBSG_RE_MULTI(RS) ,R2 ; Get address of multicast addresses mC 
8¢ B4 2F7C 9119 80S: CLRW (R2)+ : Init multicast address List mC 
FB 51 OFS 4 4 ? SOBGTR R1,80$ ; Loop if more - 
50 01 9A at 91 ¢ 90$: MOVZBL S“#SS$_NORMAL ,RO ; Return success NI 
O26E 8F BA £84 9123 100$: POPR  #*M<R17R2,R3,R6,R9> > Restore registers NI 
0S 2F88 9124 3; Return to caller Nl 
HS Ste ‘ 
493 4 ; : FIND_MLTENTRY - FIND EMPTY SLOT IN UCB MULTICAST ADDRESS LIST - 
ree Sig; innutss ve 
£89 31 1: RS = UCB address Nr 
HB iu | ono : 
444 9135 ; RO = Status return for request Ne 
493 3138 $ R3 = Address of available slot if successful = 
F89 9138 FIND_MLTENTRY: Ne 
51 OD F89 9139 PUSHL 3; Save R1 NP 
50 01 CE Ff 9140 MNEGL #1,R0 3 Assume success NP 
53 O0E9 CS’ 9 43 9141 MOVAB UCBS$G_XE_MULTI(R5),R3 =: Get address of multicast List NP 
51 OA QA 2F9 ab MOVZBL #MAX_C_MCT,R1 : Get maximum number of addresses NE 
83 D5 2F96 91435 10S: TSTL (R3)F 3 Empty slot? NP 
06 #1 F98B 9144 BNEQ on8 ; Br if no - skip to next entry NP 
63 BS 2FIA 9145 TSTW = (R3) ; Really? NI 
08 1 FOC Bias BEQL 30$ 3; Br if yes - success NM 
53 96 3 4, 9147 20$: ADDL #2,R3 : Skip to next address we 
fF2 51 =F ror 4 | SOBGTR R1,10$ ; Br if more to try _ 
50 D4 2FA4 3130 CLRL OR ; Return failure Ne 
53 2 C FA6 9151 30$ SUBL #4,R3 3; Back up pointer Ne 
1 BED FA9 91 ; POPL ; Restore registers Ne 
0 FAC 91 RSB NP 
HS iE " 
FAD 91 § : SQUEEZ_MULTI = SQUEEZE UP THE MULTICAST ADDRESS LIST | NP 
FAD 9157; | NP 
| 
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Functional description: 


| 
| 
re first empty slot is searched for in the multicast address List and 
he List is squeezed from that point down. | 


VMS DEUNA 
LTl = S$ 
FAD 1 
FAD 3188 3 : 
FAD 9160 ; 
AS se ES 
FAD 3188 3; Inputs: 
FAD 9164 ; 
FAD 9165 ; RS = UCB address 
FAD 3168 3 
FAD 9167 ; Ouputs: 
FAD 9168 ; 
FAD 3193 : None 
FAD 9170 : 
FAD 9171 ;-- 
. 3178 SQUEEZ_MULTI: 3 3 squeeze és toyn the multicast address List 
54 OOE7 C5 9A re0 9174 MOVZBL UCBSB_XE_MULTI(R5),R4 ; Get “punber of entries in List 
25 13 2FBS 9175 B :; Br if none 
53 O0E9 CS” 9E 4 4 gis MOVAB UCBSG_XE_MULTI(R5),R3 ; Get address of multicast List 
FBC 9178 ; Search for empty slot in List 
FBC 9179 ‘ 
63 DS 2FBC 3180 10S: TSTL (R30 : Is this the empty slot 
05 ig FBE 9181 BNEQ 20$ ; Br if no 
0403 B FC 3156 TSTW 4(R3) 3 Really? 
08 13 2FC3 918 BEQL 30$ ; Br if yes 
53 06 CO 2FC5 9184 20S: ADDL #6,R3 3 Skip to next entry in list 
F154 FS 2FCB8 9185 SOBGTR R4,10$ 3 Loop if more possiblities 
OF 11 2FCB 9186 o$ : Else, exit 
FCD 91 : 
eee 3 3; Empty slot found - put the squeeze on. 
83 06 .A3 DO SFCD 9190 $08:  MOvVL 6 (R3), (R3)4 ; Squeeze the List 
83 06 A3 B80 2FDI 9191 OVW 6(R3),(R3)+ 3 
F554 5 2FDS 919¢ SOBGTR R4, 30$ : Loop if more to go 
83 D4 2FDB 919 CLRL (R3)+ ; Zero the last entry 
83 6 B4 FDA 9194 CLRW (R3)+ $ 
FDC 9195 40S: POPQ R3 $ Restore “R3, R4 
0S 2FDF 9196 RSB 3; Return to caller 
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rea tt SET_PHYAD = THE PHYSICAL ADDRESS ae ett 9 00:76:38 DRIVER. SRCIXEDRIVER.MAR; 1 . 208 
-SBTTL SET_PHYAD = SET THE PHYSICAL ADDRESS 
‘ -SBTTL SET _DESAD = SET THE DESTINATION ADDRESS 
SET_PHYAD = SET THE PHYSICAL ADDRESS 
SET_DESAD = SET THE DESTINATION ADDRESS 


Functional description: 
This routine sets up the physical address in the CDB. 


Inputs: 
= COB address 
R5 = UCB address 
R6 = Address of physical address to be set or cleared 
R9 = Size of the string 
Outputs: 


RO = destroyed. 
ALL other registers are preserved. 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge SeSe Se Se Se Se Sse Gee See 
po) 
Po 


-ENABL LSB 
Set up the CDB physical address 


POPIPOIPIPIPIPIPIPIPININIPIPININININININININININININ | S| 


PUPP Be BS BBB BB EE PWN WII II MII WII RINIPININININPININD 2 9 OS S| DQOOOOOOOCOCOWNO mm 


SET_PHYAD: 
PUSHR 


| 
| 
IPL = FIPL 
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PT Sa Toes Bona bona bona bona oa oa a oma Doma Boca Bona Banca ca na a a Da Dona ana Banana nan. ofa fa fo. aca fn fn a Sosa Soma fms fn a na oa fo. a foams 
=Sssssssr.-— FOF 8 FG FG FN FF FN FF FN FN PRE TU ETE TEETER LTR ETE TUTE CTR CTU CTU CTU CTU CTR CTU CTUCTU TESTU CTU CTUCTUCTUCTU CVO CTOCTRC VUTEC eICrieTieyy 
WDODODOOOOOOOOODOOOOODODOOOODODODOOODOOODOODOODODODOOODODOOOOOOOODO0O000O0 
FAO ODNA NE WIN OOD NAME WW 9 OO NAUE WIN 9 OO NAULS WN (OOO NAULS WHO O00 a 


02C2 8F 8B #*M<R1,R6,R7,RI> 3; Save registers 
57 O0EF1 CS’ 9E MOVAB UCB$G_XE_PHA(RS) ,R7 ; Get address of UCB cell 
09 =si1 BRB 10$ 3; Join common code 
SET_DESAD: 
02C2 8F 6B PUSHR #*M<R1,R6,R7,R9> ; Save registers 
57 oocc cS 9 MOVAB UCBSG_XE_DES(R5),R7 ; Get address of UCB cell 
~~ & ¢ 10$: SUBL #2,R9 3; Can we read the modifier word? 
4 BLSS ©: 508 : Br if no - exit 
59 06 C6 DIVL #6,R9 ; Calculate number of addresses 
ee SS MOVZWL (R6)+,R1 : Get the modifier 
2 ASSUME NMASC_LINMC_SET EQ 1 
ASSUME NMASC_LINMC_CLR EQ ¢ 
ASSUME NMASC"LINMC_CAL EQ 
ASSUME NMASC_LINMC_SDF EQ 4 ; ? 
SDISPATCH R1,TYPE=B,- 3 Dispatch on modifier value 
<NMASC_LINMC_SET 20$>,- ; Set the address 
<NMASC_LINMC_CLR 50$>,- ; Clear the address 
<NMASC_LINMC_CAL 50$>,- ; 3 - invalid value 
<MAASC LINAC SOF 40$>,- ; Set physical as DECnet default address 
2D. = : BRB 50$ 3; Any other values are invalid 
D : 
4 3; Set physical address | 
59 OD D 20S: TSTL ; Any addresses present? 
$ 1 F BEQL 50$ ; Br if no = exit 
87 D 1 MOVL (R6)+,(R7)+ ; Set new address | 
| 
| 
| 
| 
j 
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MOVW ing)e.cR7) 
BRB 50 

; Clear address from List 
0$: MNEGL #1,(R7)+ ; Reset address 


MNEGW #1. (R7) ; aan 
BRB 50$ + ALL done 


: ALL done’ 


; Set the physical address (Assume entered from SET_PHYAD) to the DECNET 

; default address. The physical address is pre-set to -1 to default to 
the current PHA or HWA address. We will leave it alone if we are already 
initialized or we don't have SCSSYSTEMID set. 


| 
} 
| 

0$: BBS #CDB_STS_V_INITED,=- ; Br if device is already inited 

CDB_B_STS(R4) ,50$ 3 ee. use current PHA or HWA 
MOVW @SCSSGB_SYSTEMID,R1  ; Get unique high word of address 
A :; Br if not set, use default 
87 Q00400AA 8F 00 MOVL #*X000400AA, (R7) + : Set common low longword of addr 
67 51 80 R1,(R7) : 

| 


O2C2 8F BA 


Set unique high word of address 


50S: POPR #*M<R1,R6,R7,R9> ; Restore registers 
RSB ; Return to caller 
-DSABL LSB 
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-SBTTL RETURN_MULTI = RETURN THE MULTICAST ADDRESS LIST | 


XEDRIVER = VAX/VMS DEUNA/DELUA Driv 
- RETURN_MULTI = RETURN T 


;+4 
RETURN_MULTI = RETURN THE MULTICAST ADDRESS LIST 


: Functional description: 
: This routine returns all the multicast addresses in the UCB List. 
; Inputs: 
; R4 = COB address 
: UCB address 
| 


Address where to store multicast address List 
Size left in output buffer 


» 
uw 
nounan 


; Outputs: 


R6 = Address past stored multicast address List 
ALL other registers are preserved. 


RETURN_MULTI: ; Return the multicast address List 
PUSHQ 1, R 
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1 
5 
5 
8 
in 
: 
5 
0 


S R1 > Save R 
52 OOE7 CS 9A 3 MOVZBL UCBSB_XE_MULTI(R5),R2 ; Set number of multicast addresses 
51 OOE9 CS 9 OVA PE S88 AE MATES) A ; Point to start of multicast lists 
58 O02 cC 3 SUBL #2,R8 : Can string size fit? 
3 1 3 BLSS 408 3; Br no = return 
% 6G co 3 ADDL #2,R6 : Skip size field of return data 
56 60D PUSHL ; Save start address of string 
s &  ¢ 10$ SUBL #6,R8 : Room left in buffer? 
09 (1 BLSS § : Br if no .. exit now 
86 + d0 3 MOVL (R1)+#, (R6)+ ; Return address 
86 1 80 3 MOVW (R1)+, (R6)+ 3 eee 
F2 52 «FS SOBGTR R2,10$ ; Br if more possibles 
51 seng 30$ POPL R1 ; Restore string address 
-. ee. © SUBL3 R1,R6,R2 3; Get string size 
FE Al 52 B60 3 MOVW R2,-2(R1) 3; Return string size 
6 321 40$ POPQ R1 ; Restore R1, 
05 7 3 RSB 3; Return to caller 
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MATCH MULTI = CHECK MUL 


50 4 
22 68 AS OEY 
50 = 6 
1B 0008 
16 00DC 
|) 
51 FF FFFFFF 
52.OF FFF 


85" 
Functional 


Inputs: 


=z 
5 
nun 


Outputs: 
RO 
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TICAST ADDRESS 


MATCH_MULTI: 
PUSHQ 


B 14 


+ 
MATCH MULTI = CHECK MULTICAST ADDRESS 


description: 


This routine returns success if the unit is in promiscous mode 
recognizes all multicast address or the multicast address in the buffer 
matches a multicast address in the unit's multicast address List. 


Receive buffer 
COB address 
UCB address 


Status return for request 
Destroyed 


ay 
ALL other registers are preserved. 


MATCH_ADDRESS 
R2 


R2 3 
CLRL RO $ 
ASSUME UCBSV_XE_INITED EQ 0 
BLBC UCBSW_DEVSTS(R5),10$ : 
INCL RO : 
ASSUME NMASC_STATE_ON EQ 0 
ASSUME NMASC"STATE OFF EQ 1 
cS. EQ BLBC UCB$B_XE_PRA(RS),10$ 3 
C5 5? BLBC UCBSB” XE-MLT(R5),10$ 3 
A2 D MOVa CXB$G_R_BEST(R2) ,R1 3 
8F D1 CMPL #BROCSTT,R1 3 
07 12 BNEQ 3 
8F B1 CMPW #BRDCST2,R2 ; 
02 13 BEQL 3 
04 10 6BSBB 3 
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or the 


Find ayle igest addres in UCB 
Save R 
Assume failure 


Br if PROTOCOL TYPE is not valid 
Assume success 


a if promiscuous mode - OKAY 

Br if all multicasts are enabled 
Get Syst reese address 

ae this the broadcast address? 


no 
Real Ly ? 

Br if” x98 - everybody get this one 
Else, ng exact match 

Restore R2, R35 

Return to caller 
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x prayer = VAX/VMS DEUNA/DELUA Drive 
v04-00 MATCH_ADDRESS = FIND A MATCH ON A MULTIC SEP=1984 DRIVER. SRCIXEDRIVER.MAR; 1 (85) | 
: ; 19 «SBTTL MATCH ADDRESS = FIND A MATCH ON A MULTICAST ADDRESS | 
A 71 344 
A : if 3 MATCH_ADDRESS = FIND A MATCH ON A MULTICAST ADDRESS 
" 3 fe : Functional description: | 
Ae 9 6 : This routine searches the UCB multicast address List for a match on a 
“ 4 4 ; multicast address. 
BA 9 8 : Inputs: 
A 3 Ht : R1 = Low 32 bits of 48 bit multicast address to match 
OA2 9 fi 3 R2 = High 16 bits of 48 bit multicast address to match 
OA2 9 3 R4 = CDB address 
pA gene ; RS = UCB address 
pA 2358 : Outputs: 
OA att : Rg = Status return for request 
OA2 9389 ; R3 = Address of slot in multicast address List 
OA2 9390 ; ALL other registers are preserved. 
OA2 9391; 
ee 
OQA2 9394 MATCH_ADDRESS: : Bee, multicast address in UCB 
54 OD OA2 9395 PUSHL RG 3 Save R4 
50 01 9A 30A4 8809 MOVZBL S$*#SS$_NORMAL,RO 5 Kesune succes 
54 O0€7 CS 9A 30A7 939 MOVZBL UCBSB_ xe -MULTECRS) ),R4 ; Set number of “auiticest addresses 
53 0O0€9 CS 9E& 30AC 2308 MOVAB UCBSG_XE -MULTI(R5),R3  ; Point to start of multicast Lists 
51 83 Di 3081 9399 10$: CMPL (R3)+, ; Is this a match? 
05 12 3084 9400 BNEQ 20$ ; Br if no - skip to next 
52 63 81 3086 9401 CMPW (R3),R2 3 is it really? 
08 13 3089 2n88 BEQL 30$ ; Br if yes - Yall done 
53 02 CO 30BB 9405 20$: ADDL #2,R3 : Skip to next entry 
FO 54—séF 5 ya Bete SOBGTR R4,10$ : Br if more in List 
50 D4 30C1 2208 CLRL RO ; Return failure 
53 04 ce 0C3 9407 30S: SUBL #4,R3 ; Backup pointer 
54 BED 0C6 9408 POPL R4 3; Restore R4 
05 3009 9409 RSB ; Return to caller 
| 
| 
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v04-00 POKE_USER = DELIVER ATTENTION ASTS -SEP-1984 00:19:2 DRIVER. SRCIXEDRIVER.MAR; 1 (86) 
Och 213 -SBTTL POKE_USER = DELIVER ATTENTION ASTS 
CA 418 3*4 
bra ti? ; POKE_USER = Deliver attention AST 
Och £18 ; Functional description: 
CA 9418 ; This routine is used to deliver an attention AST if one has been 
Ree 9419 ; requested. 
CA Be 0; 
OCA 9421 ; Inputs: 
BEA 9058 : 
CA 9425; RS = UCB address 
OCA 9424 ; 
OCA 9425 ; Outputs: 
OCA 94 8 ; 
OCA 9427 ; RO =_Low bit clear only if user is not notified 
OCA 9428 ; R1-R3 are destroyed. 
OCA 9429 ; 
OCA 9430 ;-- 
OCA 9431 
OCA 94 § POKE_USER: ; Poke user process 
OCA 94 DSBINT UCBSB_FIPL(R5) 3; Sync access to UCB 
3 D4 30D1 9434 CLRL (SP 3; Assume failure 
51 00CO C¢ 3 pos 9435 MOVAB UCBSL_XE_AST(RS),R1 ; Get AST Listhead 
61 OD 0D8 94 § TSTL (R1) 3; Empty? 
1¢ 8613 30DA 943 BEQL 30$ ; Branch if yes 
6—E 06 30DC 9438 INCL (SP) 3; Indicate success 
54 DD 30DE 9439 PUSHL R4 3; Save R4 
54 51 DO 30E0 9440 OVL R1,R4 ; Copy Listhead address 
5161 00 OE3 9441 10$:  MOVL (R1),R1 : Address a block 
lee beg Bees BEQL 20$ : Branch if done 
44 AS 00 30E8 944 MOVL UCBSL_DEVDEPEND(R5),- ; Change parameter 
1C Al OEB 9444 ACBSL_KAST+4(R1) 3 return status 
F4 11 3SOED 9445 BRB 3; Continue thru AST blocks 
00000000 ' GF 16 3SOEF 9446 208: JSB G*COMSDELATTNAST ; Deliver the AST's 
54 8EDO ora Beet POPL R4 3; Restore R4 
50 8EDO 30F8 9449 30S: POPL RO 3; Return success indicator 
sore 9450 ENBINT 3; Restore IPL 
05 SOFE 9451 $B ; Return to caller 
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+4 
MATCH_PROTYP = Match protocol type 
MATCH_PROMTYP = Find the promiscuous user 


This routine wings for a match of a protocol type against that in 
existing UCB's 


Inputs: 


R1 
RG 


= word of protocol type 
= COB eddress : 


Outputs: 
RO = 
R5 = 


. 
; 
; 
‘ 
; 
; 
‘ 
; 
; 
‘ 
: 
; 
: 
‘ 
; 
: 
e2 
> 


MATCH_PROTYP: 
CLRL 


BS=> match; LBC=> no match 
CB address on success 


; Match protocol type 


IDO OO OOOO OOOOCOOOOOOSOOSDSOO 


PIF IFIP IFIP IFIFIIII III) QI F800 000 FF Fe Fe Fe Fe re Fe re re re re 
WDOWODODOODOOOOOOOODOOOOODODODOODOOOOVOOOOOOOOOOOOOOOOOOODOOO 


ee AAS SARA SAS RRR AEE SSS TSS TF 


nm 
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L RO ; Assume failure 
MOVL COB_L_UCBO(R4) ,R5 ; Get first UCB address 
BEQL $ ; Br if not inited - yet 
10$: MOVL ycest_ LINK(R5),R5 ; Get next UCB address 
BEQL 0$ ; If EQL no match 
ASSUME UCBSV_XE_INITED EQ 0 f 
LBC UCBSW_DEVSTS(R5),10$ ; Br if PROTOCOL TYPE is not valid 
ASSUME NMASC_STATE_ON EQ 0 
ASSUME NMASC— STATE “OFF —Q 1 
BLBC UCB$B_XE_PRM(RS),10$ : Skip if PROMISCUOUS user 
CMPW Rj uCBSw~ XE _PROTYP(RS) 3 Match? 
NEQ 10$ 3 If NEQ no - Loop 
15$: INCL RO 3; Return success 
4 20$: $B 3: Done 
nf MATCH_PROMTYP: 
9A 94 MOVZBL #1,k0 3; Assume succes 
D0 95 MOVL  CDB_L_PRMUSER(R4).RS =: Get PROMISCUOUS user's UCB address 
12 88 BNEQ 10$ ; Br if present 
D4 9 CLRL RO ; Else, return error 
05 4 10$: RSB ; Return to caller 
$ 
1 XE_END:: 
02 .END 
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UCBS$B_DEVCLASS 
Uses DEY TYPE 


UCBSC~XE~ CDBPRM 
UCBSC_XE~LENGTH 


UCBSL_NI_HWAPTR 
UCBSL NI MLTPTR 


UCBSL~PID 
UCBSL~SVAPTE 
UCBSL~XE_AST 
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: 40 UCBSM_ TEMPLATE 
2 41 UCBSM-TIM 
: SE UCBSM~XE_INITED 
= 06 UCBSM~XE~ INTERLOCK 
= 0000000 UCBSM-XE-PROTYP 
900004 UCBSM~XE RESTART 
90005 & UCBSM~XE RUN 
0000000 G UCBSM~XE ~ SHARE 
QO000DE G UCBSM~XE-STACK 
9000000 UCBSM_XE~START 
OO00DA 6G UCBSQ~XE~100S 
Q000000F UCBS$Q~XE~QUEUES 
O000E0 6G UCBS$Q"XE-RCVMSG 
0000000¢ 6G UCBSQ"XE-RCVREQ 
Q00000E8 UCBS$Q"XE~ SHARE 
00000177 G UCBSQ"XE~XMTREQ 
QO0000E7 UCBS$V~ONC INE 
0000009 G UCBSV~POWER 
90000008 UCBSV~TIMOUT 
00000008 G UCBSV“XE_INITED 
000000CC  G UCBSV~XE~ INTERLOCK 
90000006 UCBSV~XE~PROTYP 
= 0000009 UCBSV~XE RESTART 
= 00000004 UCBSV~XE~ 
00000184 G UCBSV~XE~ SHARE 
00000004 UCBSV~XE~STACK 
= 0000000A UCBSV~XE “START 
= 00000008 UCBSW~BCA 
000000CC G UCBSW_BOF F 
00000125 G UCBSW~DEVBUF SIZ 
000000E9 G UCBSW"DEVSTS 
000000E1 6G UCBSWERRCNT 
= 00000020 CBSW"REFC 
= 00000024 UCBSW~STS 
= 00000028 UCBSW~UNIT 
= 00000038 UCBSW7XE_BSZ 
= 00000044 BSU"XE-CTR 
= 00000030 UCBSW~XE~HBQ 
= 00000090 UCBSW~XE-MNECTR 
= 00000094 UCBSW~XE~PROTYP 
= 0000001C UCBSW~XE~QUOTA 
= 0000002 UCBSW~XE~TOTQUO 
= 900000 UCBSW~XE-UBUCTR 
90000¢0 UDB_BOF_6_RDRBH 
0180 & UDB~BUF ~B-RELEN 
00000BC G UDB” BUF ~B- TDRBH 
90000c4 UDB” BUF ~B-TELEN 
0000178 G UDB~BUF ~C "LENGTH 
00 6 UDB~BUF “K"LENGTH 
G UDB~BUF “W~RDRBL 
G UDB~BUF “W~RRLEN 
G UDB~BUF “W~ TDRBL 
G UDB” BUF “W~TRLEN 
G UDB~CTR™C"LENGTH 
UDB"CTR7K-LENGTH 
UDB-CTRTL “ENTRY 
UDB"MLT~C7LENGTH 
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Psect synopsis 


"S$EP=198¢ 00:19:25 EORIVER. SACINEDRiVER.maR:1 29° 


' Psect synopsis -5 


Guceceeues eecece 


PSECT name Allocation PSECT No. Attributes 

. ABS . BAN 88808 ( 0.) 00 ¢ §.3 NOPIC USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS$ iTS 24 ( 698.) ( -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

$$$105_PROLOGUE B38 ° $s Se $ ( ¢-{ NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 

$$$115_DRIVER 000312E (12590.) ( -) NOPIC  USR REL LCL NOSH EXE RD WRT NOVEC LONG 
pose eseomnm ems as eeeeeneaanan 
H Per formance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 3 98 +80: 00. 06 90:00:01 «68 , 

pounene processing 13 00:00:00.44 00:00:03.4 

Pas 1705 a EE La 00:03:27.35 

Symbol table sort 0 00:00:05.19 p10 12-88 

Pass 2 588 00:00:16.19 00:00:55. 

Symbol table output ¢ 00:00:00.57 00:00:01.23 

Psect synopsis output 00:00:00.02 00:00:00.13 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 2472 00:01:19.86 00:04:45.06 


The working set_Limit was 3450 pages. 

449570 bytes (879 pages) of virtual memory were used to buffer the intermediate co 
There were 260 pages of symbol table space allocated to hold 4340 non-local and 66 
9502 source Lines were read in Pass 1, "sein 76 object records in Pass 2 

98 pages of virtual memory were used to define 89 macros. 


de. 
5 local symbols. 


Pano eee amen ne mew moe ewe + 


Macro Library name Macros defined 


~$255$0UA28 28.1818, OBUIUIB. AUB: -MLB; 1 


1 
~$255$DUA MLB; 41 
“$553 SDUASB: SYSLIBJSTARLET.MLB;2 Ye 


TOTALS (all Libraries) 

3975 GETS were required to define 56 macros. 

There were no errors, warnings or information messages. 

MACRO/LIS=LIS$:XEDRIVER/OBJ=OBJ$:XEDRIVER MSRC$:XEDRIVER/UPDATE=(ENHS: XEDRIVER) +EXECML$/L1B+SHRLIBS:NMALIBRY/LIB 
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